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PREMESSA DI UN LETTORE ESPERTO 


Normalmente scrivo premesse solo per i miei libri, infatti cosa me ne viene in tasca, 
se lodo i prodotti della concorrenza? Cerchiamo comunque di rimanere obiettivi, am¬ 
mettendo che questo libro ha guadagnato molte lodi. 


Contrariamente a molti libri di grafica, in questo non vengono presentati solo un paio 
di programmi con i quali il lettore può giocare, ma viene trasmessa conoscenza. 


Spesso per paura di spaventare l’eventuale compratore, molti libri nascondono il fatto 
che la grafica non è altro che matematica applicata. L'autore del presente libro non 
combatte questo dato di fatto non modificabile, bensì si addentra nel problema. 


E’ riuscito a spiegare, in maniera piacevolmente leggibile e comprensibile a tutti, com¬ 
plicate dimostrazioni matematiche. I puristi della matematica potrebbero avere obie¬ 
zioni da fare in qualche punto, ma le esposizioni sono sempre obiettive e giungono 
con precisione allo scopo, cioè alla soluzione dal punto di vista del programma. 


Anche i programmi sono sempre al massimo livello. Essi sono accuratamente svilup¬ 
pati, esaurientemente commentati e forniscono soluzioni interessanti con effetti grafici 
fantastici. 


Naturalmente i programmi arricchiscono il libro; ma io li vedo solo come un regalo uti¬ 
le. L'aspetto positivo più importante da valutare è che il presente testo fornisce al letto¬ 
re tutte le conoscenze, a partire dalla base fino ai trucchi dei professionisti, mettendolo 
in grado di scrivere programmi grafici complessi. 


Peter Wollschlaeger 












CAPITOLO 1 


Introduzione 









- .e:e a'Ctxa qualche dubbio di avere fatto la scelta giusta al momento dell’acquisto 
de ga" Be^e osservate quindi le figure in questo libro. 

Se n vece siete convinti di aver portato a casa il miglior computer del mondo, dovete 
cor: ~„are sulla stessa linea e cercare un libro adeguato a tale ipermacchina. No, non 
guadate nello scaffale, lo avete già in mano! 

E con queste parole che potrebbe cominciare l'introduzione ad un libro di seconda 
scelta. Noi naturalmente vogliamo occuparci solo di prodotti di prima scelta, per cui 
cerchiamo di rimanere seri! 


E’ comunque sempre divertente riuscire a tirar fuori da una macchina di questo ge¬ 
nere tutto ciò che è possibile: il massimo di velocità, risoluzione e colore. Questo libro 
vi aiuterà. Vi renderà professionisti, specialisti rispetto a tutto ciò che riguarda la grafica 
computerizzata. 


La premessa principale è la comprensione. Il settore della matematica che assume 
un ruolo decisivo nella grafica viene spesso descritto come difficile e complicato. Que¬ 
sto libro vuole superare questi pregiudizi. Dovrete capire fin dall’inizio ciò che state 
leggendo. Questo è il motivo per cui ci si è occupati con tanta cura di una suddivisione 
sistematica degli argomenti, si sono introdotte delle spiegazioni esaurienti, anche se 
così facendo si è giunti spesso, inevitabilmente, ad una spiegazione doppia (meglio 
due che nessuna). 

Introduciamo quindi il secondo principio del presente libro: elevato contenuto infor¬ 
mativo. Qui troveremo argomenti che finora erano noti solo agli “iniziati” e agli specialisti. 


I molti programmi di esempio, molto ben documentati ed istruttivi, che vi faranno con¬ 
temporaneamente divertire, vi spiegheranno la teoria praticata e scoprirete che non 
è poi cosi difficile come pensavate in precedenza. Per quanto riguarda la grafica non 
abbiamo inventato niente di nuovo. I programmi sono scritti o in AmigaBasic o nel noto 
linguaggio di programmazione C, che si sta guadagnando un numero sempre mag¬ 
giore di estimatori. Tutti i programmi sono pieni di commenti, e vengono descritti esau¬ 
rientemente nel testo. Per gli amici del linguaggio C è sicuramente una buona notizia 
sapere che tutti i programmi in C possono venire compilati senza modifica sia con il 
compilatore Aztec che con il compilatore Lattice. 

Siete diventati curiosi? Leggete fino in fondo quello che abbiamo da offrirvi. Prima 
di tutto ci occuperemo di alcune caratteristiche grafiche di base dell’Amiga, le cui co¬ 
noscenze sono la premessa inevitabile per i rimanenti capitoli del libro. Infatti cerchere¬ 
mo di non dare nulla per scontato. Troverete quindi informazioni sui colori, sulle risoluzioni 
grafiche, sui modi grafici, ecc. Contemporaneamente impararete come poter utilizzare 
nella maniera più efficace tali caratteristiche dal BASIC e dal C per Amiga. 
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Dopo questa breve introduzione, addentriamoci nella questione. Si tratta di rappre¬ 
sentare, dapprima in maniera bidimensionale, le figure che in seguito ci accompagne¬ 
ranno nei capitoli relativi alla tridimensione: punti, linee, cerchi, ellissi e "quel che c'è 
dietro”. Il punto chiave è costituito dalle cosidette trasformazioni: imparerete come po¬ 
ter ingrandire , spostare, ruotare o specchiare degli oggetti su un piano. Le basi mate¬ 
matiche per fare ciò vengono spiegate esaurientemente ed in modo comprensibile, 
e vi garantisco che alla fine del capitolo avrete veramente imparato qualcosa. 


Il cosidetto Clipping di linee, per alcuni concetto sconosciuto, per altri un fantasma 
spaventoso, così importante per le finestre, vi apparterrà completamente, così come 
oggi vi appartiene la semplice deformazione delle zone video. Quest'ultimo è noto an¬ 
che con il nome di "Monna Lisa in proiezione su una bottiglia di Coca Cola”, cioè co¬ 
me avvolgere un'immagine grafica attorno ad un cilindro o ad una sfera. 


Dopo l'introduzione dei concetti base, particolarmente importanti per la grafica tridi¬ 
mensionale, oi occuperemo della grafica tridimensionale vera e propria. Ci addentre¬ 
remo nei dettagli dei sistemi di coordinate tridimensionali, nonché di come organizzare 
in maniera ottimale un mondo tridimensionale, come memorizzarlo e trattario. 


Che cosa si intende con la parola proiezione centrale, o con il concetto di proiezione 
parallela? Come programmare dei grafici tridimensionali con ingrandimenti, rotazioni 
ecc. nello spazio in BASIC, e come in C? Come simulare un osservatore, come farlo 
entrare nello scenario di un mondo tridimensionale e molto altro. Si tratta di programmi 
che dovremo veramente imparare. 


Nel Quinto Capitolo ci si occupa invece di rendere invisibili linee e superfici nasco¬ 
ste: vengono presentate alcune soluzioni del problema delle "Hidden Lines and Surfa- 
ces” sotto diversi punti di vista. Troverete anche un plotter di funzioni a tre dimensioni, 
assolutamente completo, che vi entusiasmerà, nonché naturalmente ogni conoscenza 
di base necessaria. 


Sarete entusiasti anche della rappresentazione realistica di oggetti tridimensionali con 
superfici nascoste mostrata dai programmi, includendo una sorgente di luce posizio¬ 
narle liberamente. 

Se a questo punto pensate che non è possibile fare nient'altro di meglio, sono co¬ 
stretto purtroppo a deludervi. Tenetevi stretti! 

A, .ete mai programmato da soli una grafica tridimensionale di elevato realismo tenen¬ 
do conto di diverse fonti di luce, formazioni di ombre, riflessioni luminose a specchio 
e iiTuse, oggetti completamente riflessi da più superfici o corpi trasparenti? Conosce¬ 
re a differenza tra oggetti lucidi e opachi, lucidi, metallici e non metallici? Conoscete 
•e —agmi da voi create? La tecnica del "Ray-tracing” lo rende possibile: create il 
.cs*'o ~ondo e riformulate le leggi della natura. Le immagini che finora avete ammira- 
“ ' 3 aoositive, potranno in futuro venire programmate da voi stessi. Sono sicuro che 
-.-ara sezione del libro non ha affascinato solo me. Infine potrete produrre anche un 
ancora più realistico. 




Se a quel punto sarete ancora vivi, non dovrete trascurare il Settimo Capitolo, che 
si occupa di rappresentazioni realistiche dei cosidetti solidi di rotazione. Le fonti di luce 
multiple e le ombreggiature saranno anche per voi degli strumenti di lavoro familiari. 


Cosa sarebbe un libro senza appendice? Nell’appendice troverete, riunite tutte le 
nozioni di base della matematica comprese le funzioni trigonometriche. Il requisito mi¬ 
nimo per la comprensione é la conoscenza dell'algebra elementare. 


Nell’appendice troverete inoltre una lista completa di tutte le funzioni di Library utiliz¬ 
zate nel testo, con i parametri necessari per il loro uso e la descrizione. 


L’opera è completata da una esauriente bibliografia. 
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CAPITOLO 2 


Elementi di base della grafica per Amiga 





E' superfluo sottolineare ‘atto che l'Amiga possieda delle caratteristiche grafiche 
eccezionali. Dobbiamo -.ece esaminare attentamente come farne uso in qualità di 
programmatori. 


Nel presente capitolo vengono illustrati tutti gli elementi necessari per produrre della 
grafica con l'Amiga Si ccr- ncaa dalle possibilità grafiche di base (risoluzione, colori, 
ecc.) passando ad u~a ce.e Descrizione di come poter gestire, in AmigaBasic o in 
C, le diverse operazon g'=‘che Ciò ha a che vedere con i comandi BASIC per la 
grafica e naturalmente cor e Library grafiche. Troverete inoltre gli elementi di base 
per i numerosi progne - esempio del libro. Naturalmente potete saltare il presente 
capitolo, se siete gè- cossesso delle conoscenze necessarie. 


2.1 I colori de" Amiga 


Al fine di comc'e'oe'e a gestione dei colori nell’Amiga, e in genere in tutti gli elabo¬ 
ratori e monte' = 3= cccc-amo intraprendere una breve digressione nella scienza ge¬ 
nerica de co ter 


Seca - ' e-~a .o conoscete la tecnica di produrre con gli acquerelli, con i colori 

di base 'dss: e z a. c. qualunque colore desiderato. Il viola per esempio viene pro¬ 

ne": - scea'Dt 'esso e il blu, il verde si ottiene dal blu e dal giallo ed il nero dalla 
'"•esc: erta r e t'e i colori. Se un viola non è sufficientemente scuro, aggiungere- 
a-cc-e _r d au, eccetera. Quindi, quanto più colore base aggiungiamo, tanto 
O - so--: 3 .‘='-='2 colore risultante. Tale fenomeno viene chiamato "miscelazione 

OJZ 3 ~ .2 


_ - a* *~: tee 3 - scelazione dei colori è rappresentato dalla cosidetta "miscelazione 
233 - ■ e encneno si manifesta nella miscelazione di luci colorate. Anche in questo 
case esscno "e colon di base, ma qui si tratta di rosso, verde e blu, dalla cui combi- 

*23 :*e e :*^sc e ottenere tutte le altre tinte (tutto ciò non è un fenomeno naturale 
'-soejac e ~a ~a solo a che vedere con il modo nel quale i nostri occhi identificano 
33 zr “ _ re caso della miscelazione additiva, quanto più intensamente vengo- 
i: _ se" =- eoo- di base, tanto più chiaro sarà il colore risultante (ecco perché viene 
3- araa ~ sceazione additiva). Una combinazione di parti uguali di tutti e tre i colori 
3 casa ce- esempio, forma il bianco. Lo schizzo che segue mostra quali colori si ot- 
'e^ozr-z za a "scelazione dei colori base. 


"oce--or:or e televisori a colori utilizzano questo principio. Ogni singolo punto 

sullo schermo e composto, in realtà da tre punti colorati posti l’uno vicino all’altro (pro¬ 
vate ad osservai attentamente), di colore rosso, verde e blu. 
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Fig. 2.1 Miscelazione colori additiva 


A causa della distanza del nostro occhio da questo insieme di punti, noi registriamo 
un solo punto, il cui colore non è altro che la somma dei tre colori dei singoli punti. 
Se per esempio un punto deve apparire bianco, tutti e tre i punti singoli avranno la 
stessa intensità. Per ottenere il giallo lavorano solo il rosso ed il verde, mentre per il 
nero tutte e tre le "luci” sono spente. 


Dal momento che il nostro Amiga deve produrre delle immagini su monitor a colori, 
esso dovrà anche sapere con quale intensità dei colori base comporre il colore di un 
punto. Il programmatore ha la possibilità di specificare esattamente queste informazio¬ 
ni. L'Amiga per ogni colore base dispone di una gamma di sedici livelli di intensità, 
a partire dal nero fino alla massima intensità luminosa. Ora siamo in grado di scegliere 
un qualunque colore risultante da una combinazione di questi tre colori base. Sarà pos¬ 
sale effettuare una scelta fra una gamma di 4096 combinazioni (16 intensità per ogni 
ecfore di base danno come risultato 16x16x16 = 4096 colori). Ne deriva una versa¬ 
la nel colore molto utile per le immagini computerizzate e che, quasi incredibile, ver- 
■a completamente sfruttata. Speciali .terminali grafici molto costosi permettono spesso 
-na scelta di colori ancora più ampia (più di un milione di colori), cosa che si ripercuote 
s irta qualità dell’immagine. 
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Un modo grafico dell’Amiga permette di rappresentare contemporaneamente tutti 
i 4096 colori (in un altro modo solo 64) ma normalmente è possibile visualizzare sul 
video un massimo di 32 colori contemporaneamente. Naturalmente siamo noi a sce¬ 
gliere di quali colori si tratterà, per tali 32. Dopo aver selezionato i 32 colori che prefe¬ 
riamo, memorizziamoli in 32 cosidetti registri di Palette (tavolozza, vedi schizzo). Dal 
contenuto di questi registri (numerati da 0 a 31) l'Amiga stabilirà con quale colore colo¬ 
rare un determinato punto. Il registro di Palette nr. 0 ha un ruolo particolare. Esso infatti 
contiene il colore dello sfondo. 



32 Registri di tavolozza 


Fig. 2.2 Scelta di 32 registri di tavolozza 


Ogni qualvolta tracceremo un punto, dovremo indicare il registro della Palette conte¬ 
nente le intensità dei colori base (RGB) per il colore di quel punto. I 32 registri di Palette 
hanno in un certo senso il ruolo di 32 pennelli, i quali vengono immersi in un determi¬ 
nato colore, quindi utilizzati per dipingere. 


Vediamo quindi come memorizzare un colore in tali registri di Palette. 

_ __tf ^ t 

In primo luogo si deve indicare il valore di intensità (0-15) dei tre colori di base rosso, 
verde e blu. In AmigaBasic Si ottiene molto semplicemente tramite il comando PALET¬ 
TE. Con esso è possibile indicare i valori dell'intensità sotto forma di numeri tra 0,00 
e 1,00 (quota percentuale). 









































































































































In C, utilizzando la funzione della Graphics Library SetRBG4{) oppure SetRGB4MC0 
(torneremo sull'argomento delle funzioni di Library nel presente capitolo), è sufficiente 
indicare solo i valori per il rosso, per il verde e per il blu. 


In realtà questi tre valori vengono riuniti in un registro a 32 bit, avente la seguente 
struttura: 



Tuttavia, programmando l'Amiga si avrà poco a che fare con questa struttura, dal 
momento che, come già detto, utilizzeremo delle funzioni specifiche che si occupano 
già dei giusti assegnamenti. 


2.2 Risoluzioni grafiche e sistemi di coordinate 


Anche l’Amiga, come molti altri computer, possiede diverse risoluzioni grafiche per 
diversi scopi. Esso utilizza un sistema molto flessibile e ricco di variazioni per la selezio¬ 
ne della risoluzione, dei colori e del modo grafico giusto. 

a) Risoluzioni standard: 

Con il concetto di "risoluzioni standard" si intendono due modi diversi, facili da usa¬ 
re e di conseguenza utilizzati spesso. Sono i: 

Bassa Risoluzione: 320 x 256 punti (320 x 200 sotto NTSC) 
max. 32 colori contemporaneamente 
Risoluzione Alta: 640x256 punti (640x200 sotto NTSC) 

max. 16 colori contemporaneamente 

(Quando si scrive 320x200 si intende 320 punti in direzione orizzontale, cioè dire¬ 
zione x, e 200 punti in direzione verticale, cioè direzione y. NTSC è la norma televisi¬ 
va americana, ma noi lavoriamo con il sistema PAL). Il Workbench per esempio lavora 
normalmente in alta risoluzione, nella quale sono possibili 80 caratteri per riga. La 
' lassa risoluzione viene applicata principalmente quando si vuole risparmiare spa¬ 
se memoria (ogni punto in più sul monitor costa naturalmente più memoria video 
ccoure quando si vogliono avere più colori. Approfondiremo meglio in seguito que- 
sc asoetto. Naturalmente le capacità del monitor (televisore) rivestono un ruolo molto 
riportante nella scelta del modo giusto. > 
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A questo proposito c’è da fare attenzione al fatto che in alta risoluzione ogni punto 
è largo la metà ma alto uguale a quelli del modo 320 x 200. La bassa risoluzione, 
al contrario, rappresenta dei punti quasi quadrati. Per questo motivo possono mani¬ 
festarsi delle distorsioni. 

b) Modo Interlace: 

Le due risoluzioni standard si differenziano l’una dall'altra (ed è facile a vedersi) 
solo in orizzontale. Ciò dipende dalla velo cità dei processori video, i quali devono 
elaborare e visualizzare contemporaneamente più punti a seconda della risoluzione. 

Esiste tuttavia la possibilità di raddoppiare anche la risoluzione y. Ciò avviene nel 
cosidetto modo Interlace. 

Normalmente un'immagine sul monitor viene costruita 50 volte al secondo (sotto 
NTSC 60 volte) riga per riga da un raggio di elettroni, al fine di ottenere un'immagi¬ 
ne il più possibile priva di sfarfallio. Nel modo Interlace, al contrario, accade quanto 
segue: un'immagine visualizzata verrà dapprima scandita una riga sì e una riga no. 
Quindi fra due righe resta sempre una riga vuota. Alla costruzione successiva del¬ 
l’immagine, vengono completate le righe intermedie mancanti. Di conseguenza un'im¬ 
magine completa ha bisogno di due processi prima che tutti i punti vengano 
rappresentati (e ciò accade 25 volte (sotto NTSC 30 volte) al secondo). Per questo 
motivo si perviene, a seconda della scelta dei colori, ad uno sfarfallamento più o 
meno forte deH’immagine, che non è piacevole a vedersi (consiglio: diminuire il con¬ 
trasto al minimo, oppure utilizzare colori con poco contrasto, anche un paio di oc¬ 
chiali da sole può contribuire). 

E' possibile ampliare ambedue le risoluzioni standard: 
bassa risoluzione, interlace: 320x512 (oppure 320x400) 

max. 32 colori contemporaneamente 
risoluzione alta, interlace: 640x512 (oppure 640x400) 

max. 16 colori contemporaneamente 

Le applicazioni sono chiare: una elevata risoluzione produce una migliore vista 
di insieme e molti dettagli. In particolare per programmi CAD, per calcoli di tabelle 
oppure per elaborazione di testi si tratta di vantaggi decisivi. Un ulteriore vantaggio 
del modo Interlace: il numero dei colori disponibili non diminuisce rispetto ai modi 
standard. In caso di foto del monitor, lo sfarfallamento non ha nessuna controindica¬ 
zione, in quanto di solito in tali casi si lavora con tempi di esposizione di circa 1 
secondo. 

c) Modo Hold-and-Modify (HAM): 

Si tratta di un modo specifico deH’Amiga molto interessante. Infatti con esso si ha 
a possibilità di rappresentare contemporaneamente sullo schermo tutti i 4096 colori 
possib : Per ottenere ciò, fattala, è nècqss|rip. osservare alcune limitazioni: 

il modo HAM funziona solo sotto due risoluzioni: 

Hold-and-Modify: 320x256 (NTSC: 320x200) 

320x512 (NTSC: 320x400) 
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Per quanto concerne la colorazione dei singoli punti, si deve distinguere tra due 
casi, che possono presentarsi l'uno accanto all'altro nella stessa immagine. Da un 
lato abbiamo la possibilità di scegliere normalmente il colore per un punto da 16 
registri di Palette (in maniera simile al modo alta risoluzione). Dall'altro invece è pos¬ 
sibile utilizzare dei colori che non si trovano in questi 16 registri, nella maniera se¬ 
guente: 


Il colore di un punto dipende dal colore di quello che si trova alla sua sinistra. 
Il colore del punto precedente è noto, in quanto è composto dai tre colori di base 
rosso, verde e blu. Per il colore del punto attuale sarà possibile modificare l'intensità 
di un solo colore base (per esempio rosso), ma ciò può venire effettuato a piacere. 
Se invece si vogliono modificare due o tutti e tre i colori di base, sarà necessario 
procedere a passi tramite uno o due punti intermedi. 



E’ necessario fare attenzione al fatto che il primo punto di una riga appare sem¬ 
pre nel colore dello sfondo (contenuto del registro di Palette 0). Quindi non viene 
mantenuto il colore dell'ultimo punto della riga precedente. 


Quindi la gestione di questo modo non è poi così semplice. Ma proprio per imma¬ 
gini che devono contenere molti colori diversi oppure ombreggiature, è l'unica pos¬ 
sibilità che abbiamo. 

pVc (lo r*nr- 5 

- . - “0 

d) Modo Extra-Half_Brite: *» « 

1 onogettisti del nuovo Amiga hanno introdotto un ulteriore modo, particolarmente 










































adeguato alla produzione di sofisticati effetti grafici: il modo Extra-Half2Brite. Tale 
modo non funziona con i primi modelli delle serie 1000 e 500. Esso è utilizzabile 
in due diversi livelli di risoluzione: 

Standard Extra-Half2Brite: 320x256 (320x200) 

(64 colori contemporaneamente 
Interlace Extra-Half2Brite: 320x512 (320x400) 

(64 colori contemporanemente) 

Si tratta quindi di una variazione della bassa risoluzione. In questo nuovo modo 
grafico sono possibili contemporanemente sullo schermo 64 colori diversi in totale, 
invece dei 32 colon massimi a 320x256. E' chiaro che ci deve essere anche un lato 
negativo: infatti tale modo necessita di molta memoria, che potrebbe dover essere 
ampliata. 

Inoltre, i 64 colon non sono completamente indipendenti l’uno dall'altro. I primi 
32 colori (la Palette colori normale) possono venire occupati con un colore qualun¬ 
que dei 4096 disponibili. Dal momento che, come abbiamo visto, esiste un massi¬ 
mo di 32 registri di colori, i 32 colori superiori risulteranno dai colori dei registri di 
colore inferiori. Per fare ciò l’Amiga divide per due le intensità di colore dei 32 regi¬ 
stri di colore inferiori. I 32 registri di colore superiori specificano lo stesso colore di 
quelli inferiori, solo con una luminosità dimezzata (da cui deriva il nome di "Half- 
Brite" = mezza luminosità). Di conseguenza il registro di colore 32 avrà il colore 
del registro 0, il registro 33 quello del registro 1, ecc. Fare quindi attenzione al fatto 
che, a causa del dimezzamento, sono possibili solo valori di intensità di colore da 
0 a 7 nei 32 colori superiori. 


Risoluzione e organizzazione del colore: 

Finora non abbiamo approfondito sufficientemente la colorazione nelle singole riso¬ 
luzioni. Vediamola meglio. 


In tutti i modi (ad esclusione del Ham e Half2Brite) è possibile determinare quanti 
colori si vogliono rappresentare contemporaneamente sullo schermo. In ciò, si hanno 
a disposizione i seguenti valori: 

max. 2 colori 
max. 4 colori 
max. 8 colori 
max. 16 colori 

max. 32 colori (solo per bassa risoluzione) 

Maggiore sarà il numero di colori che si vogliono rappresentare contemporaneamen¬ 
te, tanto maggiore sarà lo spazio di memoria necessario per una singola immagine. 
Anche la velocità di rappresentazione sullo schermo diminuirà all’aumentare del nu¬ 
mero di colori. , 
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I colori si riferiscono come noto ad un registro di Palette, cioè un punto con colore 5 
riceve il colore che si trova in quel momento nel registro di Palette 5. Nella memoria video 
questo numero deve venire naturalmente indicato sotto forma binaria (5 corrispondereb¬ 
be quindi alla combinazione di bit: %101 ). Quanti più bit sono necessari per l’indicazione 
del colore di un singolo punto (in caso di 5: 3 bit), tanta più memoria sarà necessaria in 
totale. La memoria video è organizzata nei cosidetti Bit-Piane (o piani di immagine). 


Ogni Bit-Piane riceve 1 bit per ogni punto del monitor, il quale, insieme con ì bit degli 
altri Bit-Piane, indica la colorazione del punto. Il Bit-Piane 0, quindi, fornisce tutti i bit 
di 0 del numero di registro del colore, il Bit-Piane 1 tutti i primi bit ecc. (vedi figura 2.5). 



Esempio: ipotizziamo che il punto in alto a sinistra del monitor debba ricevere il colore 
dal registro di Palette 5. Quindi nel Bit-Piane 0 avremo un 1 nel primo bit, nel Bit-Piane 
1 uno 0, nel Bit-Piane 2 di nuovo un 1. 

A seconda di quanti colori vogliamo rappresentare contemporaneamente, avremo 
bisogno di un diverso numero di Bit-Piane: 

max. 2 colori - 1 Bit-Piane 
max. 4 colori - 2 Bit-Piane 
max. 8 colori - 3 Bit-Piane 
max. 16 colori - 4 Bit-Piane 
max 32 colori - 5 Bit-Piane 

Ogni ulteriore Bit-Piane necessita di spazio di memoria aggiuntivo Tale spazio ag- 
pu-t .o d’Dende naturalmente dal numero dei punti rappresentabili sullo schermo, cioè 

























dalla risoluzione. La seguente tabella fornisce le esigenze di memoria di un Bit-Piane 
nelle diverse risoluzioni: 


Risoluzione 

Spazio di memoria per Bit-Piane in byte 

320x256 (320x200) 

10240 (8000) 

320x512 (320x400) 

20480 (16000) 

640x256 (640x200) 

20480 (16000) 

640x512 (640x400) 

40960 (32000) 


Tabella 2.1. Esigenza di memoria dei livelli di colore a seconda della risoluzione (i valori tra parentesi valgono 
per la norma americana NTSC) 


Lo schermo normale del Workbench, per esempio, possiede una risoluzione di 
640x256 (640x200 in NTSC) punti e permette un massimo di 4 colori contemporanea¬ 
mente. Per fare ciò sono quindi necessari due Bit-Piane, ciascuno con una dimensione 
di 20480 (16000 byte), per una totale occupazione di memoria di 40960 (32000) byte. 
Se, tramite “Preferences”, si passa al modo Interlace, il fabbisogno di memoria rad¬ 
doppierà. 

Una immagine Interlace con 4 Bit-Piane (max. 16 colori) con una risoluzione di 
640x512 (320x400) rappresenta un grosso "mangiamemoria", infatti il suo fabbisogno 
di memoria è di 163840 (128000) byte per immagine. Un quantitativo così elevato di 
memoria talvolta non è nemmeno posseduto dai computer moderni. Un Amiga 500 
con 512 «byte di memoria farebbe già fatica, pur essendo in grado di gestire e rappre¬ 
sentare contemporaneamente sul monitor un numero molto elevato di screen e risolu¬ 
zioni. Di conseguenza si dovrà pensare prima o poi ad un ampliamento di memoria. 

Nell’Amiga tutte le immagini possono trovarsi solo nei 512 «byte più bassi, se devo¬ 
no venire rappresentate sullo schermo. Infatti è solo a questa zona di memoria, chia¬ 
mata anche Chip Ram, che possono accedere i diversi "Custom-chip" i quali, in qualità 
di coprocessori, si occupano anche della visualizzazione e del tracciamento rapido dei 
grafici. Di conseguenza, anche in caso di ampliamento della memoria di lavoro, il nu¬ 
mero degli screen sarà limitato, anche se non strettamente. In realtà i programmi pos¬ 
sono funzionare anche in questa zona, ma, a seconda delle attività dei coprocessori, 
potranno essere più lenti anche del 30%, dal momento che la CPU 68000 deve conti¬ 
nuamente attendere i coprocessori mentre accedono a tale memoria. L'ideale sareb¬ 
be avere della memoria aggiuntiva, la cosidetta Fast-Ram (già di serie nell’Amiga 2000) 
nella quale i programmi possono girare indisturbati. 



Fig. 2.6 Accesso alla-memoria della CPU e dei Coprocessori 




















Organizzazione dei colori in modo Ham: 

Come già citato, l'organizzazione dei colori riveste un ruolo del tutto particolare nel 
modo "Hold-and-Modify". Tale ruolo può venire descritto brevemente come segue: 

Abbiamo già visto il principio su cui si basa. Il colore di un punto viene determinato 
sulla base del colore del punto precedente, e uno dei tre colori di base viene variato. 
Ma come tacciamo a comunicare ciò al computer? 

La risposta è data dalla organizzazione in memoria di un'immagine Ham: ogni im¬ 
magine Ham possiede infatti 6 Bit-Piane (da 0 a 5). I primi 4 e gli ultimi 2 Bit-Piane 
fanno gruppo a sè, mentre il 4 e il 5 indicano cosa fare con i 4 bit dei numeri 0-3: 


Liv 

4 

elio 

5 

Compito dei livelli 0-3 

0 

0 

La combinazione di bit dei livelli 0-3 indica da quale registro di Palette 
il punto deve ricevere il colore (registro 0-15). Ciò corrisponde al modo 
“normale". 

0 

1 

La combinazione di bit dei livelli 0-3 indica il nuovo valore di intensità 
per il colore base blu. Le intensità per rosso e verde vengono prese dal 
punto precedente. 

1 

0 

La combinazione di bit dei livelli 0-3 fornisce il nuovo valore di intensità 
per il colore base rosso. Le intensità per blu e verde vengono prese dal 
punto precedente. 

1 

1 

La combinazione di bit dei livelli 0-3 fornisce il nuovo valore di intensità 
per il colore base verde. Le intensità per rosso e blu vengono prese dal 
punto precedente. 


E’ possibile inoltre utilizzare per un’immagine Ham anche solo 5 Bit-Piane. I bit che 
proverrebbero dal livello mancante (livello 5) vengono messi a “0” dal computer. A 
questo punto avremo a disposizione solo le combinazioni 00 e 10. 

Come già detto in precedenza, il primo punto di una riga appare sempre nel colore 
dello sfondo. Ciò dovrà essere tenuto in considerazione per eventuali modifiche di in¬ 
tensità sulla singola riga video. 


Organizzazione dei colori in modo Half _ Brite: 

Il modo Half _ Brite, già descritto, necessita anch'esso com l'Ham di una gestione 
canicolare. La sua struttura è comunque un po’ più semplice. In aggiunta ai 5 livelli 
coiore massimi possibili per la bassa risoluzione, se ne aggiunge un sesto. Ciò è anche 
og>co dal momento che vogliamo codificare 64 diversi colori. Questi sei livelli di colore 
sono attivati automaticamente nel modo Half _ Brite, quindi non sarà possibile disatti- 
.-ane qualcuno. _ m - 

Z~~ singoli bit dei sei livelli, il computer procederà esattamente come nel caso di 
""sozzone normale. E’ con i primi 5 di essi che esso determinerà il numero del registro 
cereamente colore del punto in questione. Nel caso che il bit del VI livello sia ad 1, 
-f ce colore del punto sarà dimezzata. 


17 








2.3 Verso la grafica in Basic 


L’AmigaBasic possiede già un numero molto elevato di comandi per la produzione 
o manipolazione della grafica. In tal modo è possibile rappresentare sullo schermo senza 
problema dei semplici grafici. Nell'appendice troveremo un breve riassunto dei comandi 
grafici più importanti deH’AmigaBasic. Ulteriori informazioni sono reperibili sul manuale 
dell’AmigaBasic che dovrebbe accompagnare ogni Amiga. 

Ciò che a noi interessa in maniera particolare è la chiamata delle funzioni interne 
aH’Amiga da BASIC. Il sistema operativo del nostro elaboratore ci mette a disposizione 
numerose funzioni grafiche nella sua Graphics Library (biblioteca di sottoprogrammi 
grafici). Talvolta i comandi in BASIC accedono a tale library (per esempio al fine di trac¬ 
ciare una riga o di riempire superfici). 

Tuttavia alcune funzioni della Library Graphics non sono utilizzabili da BASIC. In ogni 
caso la chiamata diretta delle funzioni di sistema operativo presenta un vantaggio in 
velocità. 

A ciò si aggiunge il fatto che l’AmigaBasic ipotizza di funzionare con la versione 1.1 
del sistema operativo. Nella versione 1.2, implementata anche nel vostro computer, 
sono state aggiunte alcune funzioni, come il tracciamento di cerchi o di ellissi. L’Ami¬ 
gaBasic si serve in tali casi di routine proprie molto più lente. 


Cosa sono le Library? 

L’Amiga mette a disposizione del programmatore funzioni per gli scopi più svariati, 
con le quali egli potrà gestire il proprio computer, produrre dei grafici, oppure creare 
delle finestre sul video. Queste funzioni sono contenute in diverse biblioteche. Ecco 
un elenco delle Library più importanti per i nostri fini: 


Biblioteche matematiche: 

— mathffp.library (ROM-resident) 

— mathtrans.library (Disk-resident) 

— mathieeedoubbas.library (Disk-resident) 

Tali library contegono numerose funzioni di calcolo algebrico e trigonometrico, ecc. 
Solo "mathffp.library" si trova già nella ROM. Le altre biblioteche si trovano sul disco 
di Workbench e devono venire caricate dal sistema operativo in caso di necessità, co¬ 
munque in maniera totalmente trasparente per l’utente. 


Biblioteca grafica: 

— graphics.library (ROM-resident) 
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La biblioteca grafica contiene funzioni elementari per tracciamento di linee, ellissi, 
superfici e i comandi generali di animazione (Sprites, Bobs, ecc.) 


Biblioteca Intuition: 

— Intuition.library (ROM-resident) 

Essa viene utilizzata al fine di gestire gli screen, le window, i menu, i requester (fine¬ 
stra di richiesta) ecc. anche per i propri programmi. 


Biblioteca di sistema (Multitasking): 

— exec.library (ROM-resident) 

Questa biblioteca gestisce tutte le funzioni di sistema essenziali per quanto concerne 
il multitasking, la gestione della memoria, delle library, delle code, ecc. 


Oltre a ciò esistono anche delle biblioteche come "exec_support.library", “clist.li- 
brary", "layers.library", "dos.library", "icon.library" e "diskfont.library". Il sistema di 
biblioteche è "aperto", cioè biblioteche a piacere possono venire aggiunte in qualun¬ 
que momento. Ciò naturalmente offre al programmatore possibilità enormi. 


Prima di poter chiamare le singole funzioni di una biblioteca, questa deve venire aper¬ 
ta. Di conseguenza, una biblioteca che si trovi eventualmente su disco, dovrà prima 
venire caricata in memoria, quindi dovrà venire assegnato spazio in memoria per l’e¬ 
secuzione del comando in questione. 


Nel BASIC, ciò accade tramite il comando LIBRARY, per esempio: 

LIBRARY "graphics.1ibrary" 


In questo caso viene aperta la biblioteca grafica. Le singole funzioni devono venire 
chiamate come un normale programma in assembler con CALL: 

K 

CALL SetDrMdladr,mod) 

M 'A -.t. 

La Label di salto (in questo caso "SetDrMd") punta esattamente all'indirizzo della 
routine da utilizzare alla quale verranno trasmessi i parametri che si trovano tra parentesi. 

4 | 1 


Con un LIBRARY CLOSE vengono richiuse tutte le library aperte in BASIC (max. 5). 










Il comando LIBRARY, però, fa anche qualcos'altro. Affinché all’AmigaBasic siano 
noti i nomi delle diverse funzioni di biblioteca (esempio "SetDrMd") esso carica un co¬ 
sidetto file.bmap da disco, il quale contiene informazioni su quali funzioni sono disponi¬ 
bili, come si chiamano, quali parametri devono venire trasferiti e in quale sequenza. 
Per la "graphics.library” il file bmap ad esso appartenente si chiama "graphics.bmap". 
Questo file deve essere naturalmente disponibile sul dischetto corrente, diversamente 
otterremo una segnalazione di errore. 


Di conseguenza per ogni biblioteca che vogliamo chiamare dal BASIC deve esistere 
su dischetto un file bmap di questo genere. Osserviamo quindi il dischetto dell’Amiga- 
Basic (EXTRAS). Nella directory "BasicDemos” si trovano già i file ‘ graphics.bmap" 
e "exec.bmap". Copiamo quindi sul nostro dischetto di lavoro tali file. Ma come fare 
per ottenere gli altri file bmap? 


Nel nostro EXTRAS troveremo un’altra directory chiamata "FD1.2”. Dal CLI sarà pos¬ 
sibile far listare il contenuto di tale directory. In essa troveremo dei file con nomi molto 
particolari, quali “ mathieeedoubbas_lib.fd” oppure "mathieeesingbas_lib.fd". A tutti 
loro è comune il suffisso ".fd”. In tali casi si tratta di file in ASCII puro. Essi contengono, 
come i file bmap, tutte le informazioni sui nomi di funzione, sulla chiamata e sul trasferi¬ 
mento di parametri, ma in questo caso sono editabili in ASCII. 


Tramite il programma in BASIC "ConvertFD" (presente anch’esso nel "BasicDemos", 
ved. Intestazione di programma) sarà possibile trasformare tali file FD in file bmap. Per 
ogni biblioteca avremo bisogno solo del programma "ConvertFD", quindi dovremo 
fornire i nomi esatti, dopodiché otterremo i file bmap necessari per tutte le biblioteche 
(naturalmente non avremo bisogno di farlo per le biblioteche "graphics.bmap" e 
“exec.bmap"). 


Si-consiglia di effettuare tale conversione una volta per tutte e di memorizzare il risul¬ 
tato sul dischetto di lavoro, al fine di avere sempre pronte tutte le biblioteche. 


Le circa 500 funzioni delle diverse library, e forse qualcuna in più, sono d’altra parte 
descritte nei 4 libri relativi all’Amiga. "ROM-Kernel Reference Manuali Libraries and 
Devices", "ROM-Kernel Reference Manuali Exec", "Intuition Reference Manual" e 
"Hardware Reference Manual" della Addison Wesley. Nel primo libro (Libraries and 
Devices) è presente inoltre un elenco completo di tutte le funzioni di biblioteca, con 
descrizione, sintassi di chiamata e passaggio dei parametri. Si tratta quindi di uno stru¬ 
mento indispensabile per il programmatore esperto. In ogni caso, quando useremo 
delle funzioni nel libro, le troveremo complete di spiegazioni esaurienti. 


Vediamo ora un piccolo programma di esempio, che produce sullo schermo una 
serie di ellissi. Esso appare qui in due versioni. La prima fa uso del comando originale 
BASIC CIRCLE, la seconda della funzione DrawEllipse(). E’ opportuno paragonare 
la velocità di disegno: 





=r ogramma 1: 


x =1 TO 400 STEP 2 
> <z’/. = x 


yc’/. = 40*SIN(x/30> +100 
CIRCLE (xcX,yc/O ,50,,,,.6 

NEXT x 


Programma 2: 

wI&ftARY "graphics.library" 

"OR x=l TO 400 STEP 2 
xc5C = x 

ycX = 40*SIN(x/30)+100 

CALL DrawEl 1 ipse (WINDOW (8) . xcX, yc/C, 50,35) 
WEXT x 

-IBRARY CLOSE 



Fig. 2.7 II DrawEllipse dell'AmigaBasic 


- svesto proposito dobbiamo addentrarci anche nella programmazione degli screen 
e delle window (finestre). Questo compito è particolarmente semplice in Ami- 
zz-= ~ : comando SCREEN inizializza un nuovo schermo con una risoluzione ed un 
2-pe" di colori a piacere e gli attribuisce un numero di riferimento. Con SCREEN CLO- 
ac e ccssbile chiudere I ; schermo (Ved. manuale del BASIC per Amiga). Purtroppo 
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in AmigaBasic è attualmente possibile produrre solo schermi con un massimo di 200 
righe (400 in modo Interlace). 


I comandi grafici in BASIC si riferiscono spesso ad una finestra. Sarà pertanto ne¬ 
cessario aprire anche una nuova finestra aH’interno di un nuovo screen. Ciò è realizza¬ 
bile utilizzando il comando WINDOW. WINDOW apre una finestra con dimensioni a 
piacere. A tale finestra è possibile aggiungere la DRAG-BAR (sbarra di trascinamento) 
ed i diversi Gadget (chiusura, ingrandimento ecc.). Ogni finestra si riferisce al numero 
di identificazione dello SCREEN, nel quale essa deve venire aperta. Anche la finestra 
riceve un numero di identificazione, che sarà poi necessario per identificarla prima di 
inviarle i comandi di Output. Troveremo sufficienti esempi per la programmazione di 
screen e di window negli ultimi capitoli del libro. Anche le finestre, in AmigaBasic, han¬ 
no un massimo di 200 righe (400 in modo Interlace). 


Tramite l’importante funzione BASIC WINDOW(n) è possibile ottenere informazioni 
aggiornate sulla finestra di output corren te (n determina il tipo di informazione che vo¬ 
gliamo richiedere). A questo proposito consultare il manuale. In particolare, in questo 
momento ci interessano i valori 7 e 8 attribuiti a n: 


WINDOW(7) ci fornisce l'indirizzo di un record di dati (in C chiamato struttura), che 
contiene continuamente le caratteristiche attuali della finestra (ottenibili parzialmente 
anche con altre chiamate di WindowO), come per esempio la posizione attuale del cur¬ 
sore del Mouse ecc. Per molte operazioni di finestra questo indirizzo deve venire forni¬ 
to alla Intuition library. Per ulteriori informazioni si raccomanda la lettura deH’"lntuition 
Reference Manual” (ved. sopra). 


WINDOW(8) ci fornisce l'indirizzo di un ulteriore record di dati: la RastPort. La Ra- 
stPort è un insieme molto importante di variabili che rappresentano le caratteristiche 
delle finestre. Essa fornisce informazioni sulla posizione in memoria attuale della fine¬ 
stra, l’area utilizzabile per disegnare, ecc. Per ogni finestra esiste una RastPort. Win- 
dow(8) ci fornisce il suo indirizzo per la finestra di output corrente. Window(8) è importante 
perché tale indirizzo deve venire indicato come parametro per quasi tutte le funzioni 
della graphics library, affinché il sistema operativo sappia in quale finestra deve dise¬ 
gnare. L’applicazione è evidente nell'esempio precedente. 


2.4 Verso la grafica in C 


Prima di leggere questo capitolo sarà oppurtuno occuparsi brevemente di quanto 
descritto nella gestione della grafica sotto BASIC, dal momento che molte parti di esso 
sono utilizzabili anche per il C. 





Sotto C la gestione della grafica, degli screen e delle window, a causa delle molte 
cchiarazioni, si presenta un po' più complicata di quanto non lo sia sotto BASIC. In 
n ea di massima, però, molti aspetti sono simili. Naturalmente non sarà più necessario 
C'odurre da soli le library standard. Esse si trovano sul dischetto del compilatore C 
e vengono collegate automaticamente dal linker. A causa del numero molto elevato 
di strutture necessarie per la chiamata delle routine di library (come parametri di fun¬ 
zioni) le quali talvolta riflettono lo stato attuale del sistema, esistono numerosi file indu¬ 
ce per ogni biblioteca (riconoscibili sul dischetto del compilatore C dal suffisso ".h"). 
Essi contengono l’inizializzazione per le strutture più diverse e definiscono diverse istru¬ 
zioni del preprocessore. Si consiglia di stampare tutti i file di include e di classificarli 
ordinatamente. In tal modo sarà possibile ricercare in qualunque momento nomi e con¬ 
tenuti di strutture. E' tuttavia possibile trovare i file di include commentati anche nei 
quattro libri precedentemente citati della Addison Wesley. 


Tutti i programmi in C del libro girano, come già citato nell’introduzione, sia sul com¬ 
pilatore in C Aztec che con il compilatore Lattice a partire dalla versione 3.10. Al fine 
di esserne certi, è necessario prestare attenzione ancora ad un aspetto: 


Compilatore Aztec: 

La versione di cui l’autore disponeva e per la quale è possibile garantire che tutto 
funzionerà è la V3.4a. Normalmente, non ci dovrebbero essere problemi anche con 
le versioni successive. La compilazione e l'assemblaggio potranno venire effettuati in 
maniera assolutamente normale. Il file oggetto da ciò derivante (estensione ”.o”) do¬ 
vrà quindi venire linkato con le library. Utilizzare la seguente sintassi di link: 

In filename.o -le -Im 

Con tale sintassi vengono linkate insieme le normali funzioni di library e la library FFP. 


Compilatore Lattice: 

Tutti i programmi in C, ad esclusione del programma di Ray-Tracing, vengono com¬ 
pilati senza problemi da tutte le versioni del Lattice. Dal momento però che i collega- 
menti delle routine in virgola mobile FFP funzionano senza problemi solo a partire dalla 
funzione V3.10, se si possiede una versione precedente sarà necessario modificare 
leggermente il programma di '‘Ray-Tracing". 


A partire dalla versione V3.10, sarà possibile compilare con le seguenti sequenze 
di comandi: 

ti -f -mnclude/ -i:include/lattice filename.c 
c2 frenarne 

o nk "b:c.o + filename.o LIBRARY lib:lc.lib + 
r am ga.lib + lib:lcmffp.lib TO filename 
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Sarà inoltre possibile dover linkare il file oggetto Lib:lstartup.obj invece del file lib:c.o. 


Il seguente programma DEMO ci permetterà di addentrarci nella programmazione 
di Screen, Window e Grafica: 


/1 * t * *##* * t *** ♦ * ************** * ********/ 


**/ 

/tt Programmazione di schermi **/ 

Finestre e grafica in C **/ 

/## **/ 

/** Axel PI erige **/ 

/** **/ 

/** **/ 

/** **/ 


/ * t ************************************ / 


^include <exec/types.h> 

Bine 1ude <intuition/intuìtion.h> 

/t Dichiarazione funzioni Csolo per compilatore Aztec-C: */ 
/* a scelta anche: #inelude <functions.h> */ 

/*X*X**XXX*X**X**X**XX*X*X*X**X*XX**X*XXXX*tXXX*X****X*/ 


VOID 


CloseLibrary( 

VOID 


CloseScreen<) 

VOID 


CloseWindowC) 

VOID 


DrawO; 

VOID 


ExitO; 

struct 

Message * 

GetMsg <); 

VOID 


Move(); 

st r uc t 

Library * 

OpenLibrary<> 

struct 

Screen Jfc 

OpenScreeni >; 

struct 

Window t. 

GpenWindow(>; 

VOID 


ReetFi11O; 

VOID 


ReplyMsg <); 

VOID 


Set APen(); 

VOID 


SetDrMdO ; 

LONG 


Text (); 

LONG 


Wait < ) ; 


/******************************************************/ 


24 




c 





■st'-it Intui t i onBase Tintili t ionBase; 

:"uct GfxBase TGfxBase; 

* Iniziaiizzazione struttura per nuovo Font: XV 
struct TextAttr NeuerFont *= 


topaz.font“ f 

/* 

Nome del Font 

*/ 

TQPAZ_SIXTY, 

/* 

Dimensione font 

X/ 

FS_NORMAL , 

/X 

Stile 

X/ 

FPr_POMFONT, 

/* 

Preimpostazione 

XV 

Struttura per 

i ni z i al 1 z 

zazione di un 



nuovo schermo (naturalmente ciò' può' 
aver luogo anche dentro il Programma): 

*/ 


struct NewScreen NeuerBildschirm = 
C 


0, 

/* 

Coordinata x superiore sinistra 

\ / 


/* 

Angolo (sempre 0) 

X/ 

0, 

/* 

Coordinata y superiore sinistra 

X/ 


/X 

Angolo 

XV 

320, 

/X 

Larghezza schermo 

X/ 

256, 

/X 

Altezza schermo 

i / 

•"> 

*- r 

/X 

Numer o immagini 

*/ 

o, 

/* 

Colore dei dettagli 

*/ 

i, 

/X 

Colore delle superfici 

XV 

NULL, 

/X 

Modo grafico: 320x200 

* / 

CUSTOMSCREEN, 

/X 

Tipo schermo 

• / 

?<NeuerFont, 

/X 

Puntatore a propri font 

X/ 

“Demo-Schermo", 

/X 

Testo di intestazione schermo 

XV 

NULL, 

/X 

inutilizzato, sempre ZERO (NULL) 

XV 

NULL, 

/X 

nessun BitMap proprio 

XV 


Struttura per 

l’iniziali 

zzazione di una nuova finestra: 

XV 

uct NewWindow 

NeuesFenster = 


20, 

/X 

Coordinata x angolo super, sin. 

X/ 

20, 

/X 

Coordinata y angolo super, sin. 

X/ 

300, 

/X 

Larghezza finestra 

X/ 

100, 

/X 

Altezza finestra 

%/ 

0, 

/X 

Colore dei dettagli 

X/ 

». 

/X 

Colore delle superfici 

X/ 

CL0SEWIND0W ! 

/X 

Risposta per finestra chiusa 

%/ 

NEWSIZE, 

/X 

dimensioni finestra 

XV 


/X 

modificat e 

X/ 





WINDOWCLOSE I 
SMART_REFRESH ! 
ACTIVATE J 
WIND0W5IZING ! 
WINDOWDRAG I 
WINDOWDEPTH ! 
NOCAREREFRESH ! 
GIMMEZEROZERO, 


/:*: Elementi e tipo finestra 
/% da selezionare 


*/ 

%/ 


NULL, 

/% Nessun gadget proprio 

*/ 

NULL, 

/* CheckMark 

X/ 

"Demo-Finestra", 

/* Testo di intestazione finestra 

X/ 

0, 

/% Indirizzo struttura schermo 

*/ 


/X deve venire inizializzato 

X/ 


/X all'interno del Programma 

X/ 


/% dopo l’apertura di 

X/ 


/* uno schermo 

X/ 

NULL, 

/X nessuna finestra SuperBitmap 

X/ 

100, 

/* Larghezza minima 

X/ 

25, 

/X altezza minima 

X/ 

320, 

/X Larghezza massima 

X/ 

250, 

/* Altezza massima 

X/ 

CUST0MSCREEN, 

/X Tipo schermo 

X/ 


VOID mainO 

■C 


struct Screen *Bildschirm; 
struct Window TFenster; 
struct IntuiMessage tMeldung; 
struct RastPort *rasterport; 


LONG i; 

LONG fensterbreite, 

fensterhoehe; 
ULONG class; 


/* 

t 

* 

i 

» 

:* 


Apertura delle library di intuition e grafiche. 
La funzione OpenLibraryO restituisce 
un puntatore alla library 

che deve venire memorizzato, affinché’ il 
Programma in C possa accedere ad esso. Se tale 
puntatore e r uguale a zero, c’e’ un errore 


*/ 


* 

* 

* 

t 

* 





IntuitionBase = 

(struct IntuitionBase *)OpenLi tirai y ( "intuii ioti. 1 ibrary", OL) ; 
if (IntuitionBase == NULL) Exit(FALSE); 


GfxBase = 

(struct GfxBase *) OpenLibrar y( "graphics .1i brar y", OL) ; 
i f (GfxBase == NULL) 

( 

CI oseLi brary ( Intuì t ionBase) ; /•* Intuition-Library dose X/ 
Exit(FALSE); /* Uscita */ 


/% Ora viene aperto lo schermo. La funzione * 

* OpenScreenO fornisce un puntatore alla * 

* Struttura di screen attuale, che dovremo * 

* annotarci. Se e' uguale a zero, c'e' un errore * 

*/ 

Bildschirm = 

(struct Screen *)OpenScreen(SiNeuerBi 1 dschirm) ; 
if (Bildschirm == NULL) 

( 

CloseLibrary(GfxBase); /* Gr aphi cs-Li br ar y dose */ 

CloseLibrary(IntuìtionBase); /% Intuìtion-Library dose %/ 

Exit(FALSE); /* Uscita */ 

> 


/X Tramite OpehWindow viene aperta una finestra. La * 

X funzione fornisce un puntatore alla struttura di X 

'X Ulindow attuale. Se e’ uguale a zero, c'e' un errore * 

*/ 

NeuesFenster.Screen = Bildschirm; /X Impostazione indirizzo della 

struttura di schermo 

Fenster = 

(struct Window *>GpenWindow(liNeuesFenster > ; 
if (Fenster == NULL) 

( 


CloseScreen(Bildschirm); 
CloseLibrary(GfxBase); 

CI oseLibr ary(IntuitionBase); 
Exit(FALSE); 


/* 

Chiusura 

scher mo 

*/ 

/* 

Graphics- 

Library dose 

X/ 

/X 

Intui tion 

-Library dose 

*■/ 


/X Con ciò* abbiamo 
t un nuovo schermo. 
* emesso un piccolo 
*/ 


una nuova 
Ora, per 
grafico 


finestra 
dimostra: 
ori testo 


al 1’interno 
ione, verrà' 


* 

* 

* 


*/ 





/* Indirizzo della Rasterport: */ 
rasterport = Fenster->RPort; 

do 

( 

fensterbraite = Fenster->Width - 1 ; 
fensterhoehe = Fenster->Height - 1 ; 


SetAPenCrasterport, 
SetDrMd (rasterport, 


2L5 > / * Impostaz. colore di disegno */ 

(LONG)JAM1 );/X Modo di disegno su JAM1 X/ 


for (i=0; i < fensterbreite+1; i=i+ 3 ) 

/* Posizionare il cursore grafico e tracciare la linea: */ 
novi? (r ast erpor 1 1 f enst er br ei t e-i , f enst erhoehe ) ; 
DrawCrasterport, i, OL)j 


for (i=0; i < fensterhoehe+1; i=i+3) 

{ 

/* Posizionare il cursore grafico e tracciare la linea: X/ 
MoveCrasterport, fensterbreite, i); 

Drauirasterport, OL, fensterhoehe-i); 


/* Iscrizione testo: */ 

SetDrMd(rasterport, CL0NG)JAM2); /* Modo di disegno su JAM2 */ 
MoveCrasterport, fensterbreite/2-45L, fensterhoehe/2+3L); 

Text(rasterport, "Derno Finestra",13L); 


/X Attesa Messaggio: X/ 

UlaitCÌL << Fenst er->UserPor t->mp_Si gBi t ) ; 


/X Elaborazione segnalazione ri 
Meldung = (struct IntuìMessaae 
GetMsg(Fenster-MJserPort); 
class = Meidung->Class; 

Rep1yMsg < Meidung); 


cevuta: X/ 

X) 

/X Indirizzo segnalazione 
/X Tipo di segnalazione 
/* Restituzione segnaiaz. 


*/ 

X/ 

X/ 


i f 


C 


> 


((class ?< NEWSIZE) ! 

SetAPen(rasterpor t, 
SetDrMd(rasterport, 
RectFì11(rasterport, 
fensterbrei 


= 0 ) 

OL); 

(LONG)JAM1) ; 

OL,’ OL, 
te, 1 ensterhoehe); 


/X La dimensione finestra 
/X e’ stata modificata 
/* Colore per disegno = 0 
/* Modo di disegno: JAM1 
/X Cancel1azione finestra 


*/ 

*/ 

X/ 

X/ 

X/ 
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- -bile (Cela 


& CLOSEWINDOW) 


= O); 


- I oseWi ndow(Fenst or ) ; 
CloseScreen CBi1dschirm) ; 

-1 oseLi brary(GfxBasè); 

CloseLibrary < IntuitionBase); 

Exit CTRUE); 


/* 

finche' la finestra 

*/ 

/* 

non e' chiusa 

*/ 

/* 

Chiusura finestra 

*/ 

/* 

e anche schermo 

*/ 

/* 

Graphics-Library 

*/ 

/* 

Intuition-Library 

*/ 

/* 

Use ita 

*/ 


Questo programma apre una finestra in un nuovo schermo 320x200, nel quale deve 
venire tracciato un grafico ed un testo. La finestra è trascinabile a piacere e può venire 
ampliata o ristretta, mentre il suo contenuto si adeguerà in continuazione alla nuova 
dimensione. Al fine di terminare il programma, sarà sufficiente azionare il gadget CLO- 
SE (quindi chiudendo la finestra). 


Dal momento che vogliamo lavorare con le library Exec, Graphics e Intuition, abbia¬ 
mo bisogno, per la definizione delle diverse strutture, dei file Include "exec/types.h” 
e "intuition/intuition.h". Quest’ultimo carica automaticamente i file Include necessari per 
a library Graphics. 


Ora inizia la definizione delle variabili e delle strutture globali. A questo punto dob- 
damo imparare a conoscere i puntatori "'IntuitionBase" e '”GfxBase”, i quali forni¬ 
scono gli indirizzi di strutture che vengono utilizzate per ogni library. Essi verranno in 
seguito utilizzati, tra l’altro, anche per richiudere le library. 


Quindi inizializziamo la struttura per una nuova stringa di caratteri. La stringa di ca- 
'=~e n verrà ricaricata automaticamente in caso di necessità. Dal momento che voglia- 
<3 aonre un nuovo schermo, dovremo inoltre preparare una struttura per tale schermo. 
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Fig. 2.8 Screen. Window e Grafica in C 


Qui forniamo le diverse caratteristiche (risoluzione, dimensione, numero di colori, font, 
ecc.) che dovrà assumere. Naturalmente avremmo potuto inizializzare tale struttura an¬ 
che nel programma, attribuendo ad ogni singolo campo il valore corrispondente. Nel 
nostro caso tuttavia è molto più semplice. Inoltre in questo modo non abbiamo biso¬ 
gno di conoscere i numerosi nomi dei campi (i quali, come noto, si trovano nella defini¬ 
zione di struttura, quindi nei file Include). 


Procederemo quindi nello stesso modo con la struttura NewWindow. In tal caso dob¬ 
biamo introdurre solo in seguito almeno un parametro. Si tratta dell'indirizzo della strut¬ 
tura di Screen corrispondente, che conosceremo solo dopo l'apertura vera e propria 
dello schermo. In tale struttura dobbiamo predisporre inoltre numerosi flag. Scegliamo 
in questo caso due flag di segnalazione (IDCMP flag). Il nostro programma dovrà rice¬ 
vere la comunicazione di quando l’utente chiude la finestra (CLOSEWINDOW) e di quan¬ 
do la ingrandisce oppure la rimpicciolise (NEWSIZE). Il tipo di finestra verrà comunicato 
con un altro flag. La nostra finestra possiede inoltre un gadget di chiusura (WINDOW- 
CLOSE), un gadget per la modifica delle dimensioni (WINDOWSIZING), per la modifi¬ 
ca della disposizione in profondità delle finestre (WINDOWDEPTH) e per il suo 
posizionamento libero (WINDOWDRAG). Inoltre attiviamo SMART_ REFRESH (il con¬ 
tenuto della finestra dovrà venire rinnovato solo in caso di ingrandimento/diminuzio¬ 
ne), ACTIVATE (la finestra è attiva dopo l'apertura), NOCAREREFRESH (nessuna 
segnalazione di Refresh). Allo stesso tempo la nostra finestra è anche una cosiddetta 
finestra "Gimmezerozero", cioè all'interno della finestra viene aperta un'altra finestra 
invisibile. Quest’ultima coincide con l'intero spazio di finestra, esclusi i campi occupati 
dai gadget e dalla DRAG-BAR ecc. Gli output grafici vengono effettuati relativamente 
a tali dimensioni di finestra, evitando di disegnare sui gadget e sul contorno della fine¬ 
stra stessa. 
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A questo punto è veramente possibile cominciare. Dopo l'inizializzazione delle strut¬ 
ture e delle variabili locali necessarie, cerchiamo di aprire le due library Intuition-library 
e Graphics-library con la funzione Exec OpenLibrary() (la library Exec è già aperta al¬ 
l’accensione dell’Amiga, di conseguenza non necessita di venire aperta da noi). Anno¬ 
tiamoci per usi futuri i puntatori ottenuti. Se però il puntatore restituito è uguale a 0, 
c'è qualcosa che non ha funzionato (es. memoria insufficiente, biblioteca non disponi¬ 
bile, magari non presente su disco ecc.). In questo caso terminiamo semplicemente 
il nostro programma con la funzione exit(), senza tuttavia dimenticare di richiudere even¬ 
tuali library già aperte. 


Procederemo quindi con l’apertura dello schermo con OpenScreen() e della fine¬ 
stra con OpenWindowO- Ad ambedue queste funzioni forniremo semplicemente un pun¬ 
tatore alle strutture precedentemente inizializzate (new screen oppure new window). 
Riceveremo il puntatore alla struttura di finestra o di schermo di sistema. Facciamo tut¬ 
tavia attenzione al fatto di aver impostato l'indirizzo della struttura dello schermo prima 
dell'apertura della finestra. 


Con ciò dovremmo essere riusciti ad aprire una finestra in un nuovo schermo. Al 
fine di utilizzarla, tracciamo in essa un breve disegno. Molte funzioni grafiche necessi¬ 
tano dell’indicazione di un puntatore, che troveremo nella struttura di finestra, di siste¬ 
ma, la Rastport. La Rastport è una struttura che, semplificando, indica al sistema 
operativo dove deve disegnare (in quale finestra). Nel nostro programma copiamo tale 
puntatore nella variabile "Rasterport". 

A questo punto è possibile utilizzare diverse funzioni grafiche. Alla fine del nostro 
disegno dovremo attendere una azione dell'utente. Ciò è ottenibile con la funzione di 
Exec WaitO, che una segnalazione nella Message-Port della finestra (durante l'attesa 
possono cosi venire eseguiti altri processi e task). Il funzionamento esatto di questa 
funzione esula dal contenuto del presente testo. Il tipo di segnalazione è presente an¬ 
che nella porta utente della finestra. Copiamolo nella variabile “Class” e restituiamo 
la segnalazione con ReplyMsgO- 

A questo punto dovremo agire a seconda del tipo di segnalazione. Se la finestra è 
stata ampliata o rimpicciolita (NEWSIZE) dall'utente, cancelliamo il contenuto della fi¬ 
nestra e ridisegnamo tutto da'capo. Se è stato clickato il gadget di chiusura (CLOSE- 
WINDOW), ciò per noi significherà: Fine del programma. Chiudiamo quindi la finestra, 
lo schermo e le library (fare attenzione alla sequenza) e terminiamo con Exit(). 

Come abbiamo già visto, è possibile inserire numerosi flag nelle strutture di nuovi 
schermi e finestre. Nella pagina seguente troviamo tutti i flag possibili per queste due 
strutture. Ogni nome di flag rappresenta una combinazione di bit. Nel caso in cui si 
vogliano impostare due o più flag contemporaneamente, questi dovranno venire con¬ 
giunti con una operazione OR (in C "|") (vedi programma esempio). Per quanto con¬ 
cerne le singole strutture, e in particolare le strutture vere e proprie di schermo e di 
finestra (struct Screen e struct Window), le quali vengono inizializzate tramite la chia¬ 
mata di OpenScreenO oppure OpenWindowQ, sarà possibile rilevarne gli estremi dai 
diversi file di Include dal dischetto del compilatore C. Passiamo quindi alle tabelle: 
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a) Flag per la struttura di schermo: 
ViewModes (modi grafici): 


NULL 

HIRES 

LACE 

HAM 

EXTRA _HALF_BRITE 
DUALPF 

PFBA 

SPRITES 
VP_ HIDE 

GENLOCK_ VIDEO 


— Grafica a bassa risoluzione a 320 punti per riga 

— Grafica ad alta risoluzione a 640 punti per riga 

— Attivazione del modo Interlace 

— Attivazione del modo Hold-and-Mody 

— Attivazione del modo Extra _ Half_ Brite 

— Modo Dual-Playfield: modo speciale, nel quale uno 
schermo appare sotto un altro schermo 

— Flag per Dual-Playfield: esso determina quale dei due 
schermi deve apparire sotto l’altro. 

— Si utilizzeranno degli Sprite nello schermo 

— Lo schermo viene prodotto, ma non rappresentato sul 
monitor 

— Modo speciale per una interfaccia Genlock. Una im¬ 
magine video viene sovraimpressa sostituendo i pixel 
del colore di sfondo. 


ScreenTypes (Tipi di schermo): 


WBENCHSCREEN 

CUSTOMSCREEN 

SHOWTITLE 

BEEPING 

CUSTOMBITMAP 


— Screen di Workbench 

— Nuovo schermo 

— Visualizzazione della title bar (riga di titolo) 

— Quando lo schermo lampeggia, il flag viene impostato 
da Intuition 

— Viene utilizzato un BitMap predefinito. 


b) Flag per la struttura di finestra: 

IDCMP-Flag (flag di comunicazione di Intuition): 

I flag IDCMP, posti nella struttura di finestra, specificando se il programma deve 
venire informato nel caso in cui si presenti un determinato evento. Sarà possibile 
attendere tale evento con la funzione WaitQ (vedi programma esempio). Per venire 
informati invece di quale evento si tratta, usiamo il campo Class della struttura Intui- 
Message (vedi programma esempio). Anche qui viene di nuovo impostato il flag 
IDCMP dell'evento corrispondente. Le singole informazioni relative all'evento sono 
presenti, a seconda del tipo di segnalazione, negli altri campi di struttura come Co¬ 
de. MouseX, MouseY ecc. Vediamo quindi i flag: 

MOUSEBUTTON — Segnalazione, nel caso in cui venga azionato un pul¬ 

sante del Mouse. L'indicazione di quale tasto del Mou¬ 
se si tratti è contenuta nel campo Code della struttura 
IntuiMessage (SELECTDOWN, SELECTUP, MENU- 
DOWN. MENUUP). 
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WC^SEMOVE 

ZE-’AMOVE 


G-DGETDOWN 

G^DGETUP 

CLOSEWINDOW 

'.'ENUPICK 


MENUVERIFY 


REQSET 

REQCLEAR 

REQVERIFY 

NEWSIZE 

REFRESHWINDOW 

SIZEVERIFY 


ACTI VE Wl N DOW 
INACTIVEWINDOW 
RAWKEY 
NEWPREFS 

DISKINSERTED 

DISKREMOVED 

INTUITICKS 


— Segnalazione nel caso in cui il Mouse venga mosso (da 
impostare solo con REPORTMOUSE). 

— come MOUSEMOVE. Tuttavia vengono comunicate 
anche coordinate relative del Mouse. 

— Segnalazione di quando viene selezionato un gadget 

— Segnalazione di quando un gadget viene rilasciato 

— Segnalazione di quando viene chiusa una finestra 

— Segnalazione di quando viene selezionato una opzio¬ 
ne del menu. Il codice di menu si trova nel campo Co¬ 
de della struttura IntuiMessage 

— Segnalazione di quando l’utente sta per selezionare 
una opzione del menu (segnalazione prima della se¬ 
lezione) 

— Segnalazione di quando viene aperto il primo Reque- 
ster nella finestra 

— Segnalazione di quando viene chiuso l’ultimo Reque- 
ster nella finestra 

— Segnalazione prima della chiusura dell'ultimo Reque- 
ster nella finestra 

— Segnalazione di quando viene modificata la dimensio¬ 
ne di finestra 

— Segnalazione di quando devono venire rinnovate al¬ 
cune parti della finestra 

— Segnalazione di quando l'utente vorrebbe ingrandire 
una finestra (La segnalazione precede all’ingran¬ 
dimento) 

— Segnalazione di quando una finestra viene attivata 

— Segnalazione di quando una finestra viene disattivata 

— Segnalazione di pressione di un tasto 

— Segnalazione di quando vengono modificate le Prefe- 
rences 

— Segnalazione di quando viene inserito un dischetto 

— Segnalazione di quando viene tolto un dischetto 

— Segnalazione del Timer di Intuition (circa 10 volte al 
secondo) 


Flag di finestra: 

WINDOWSIZING 

WINDOWDRAG 

WINDOWDEPTH 

WINDOWCLOSE 

SIZEBRIGHT 

SIZEBBOTTOM 


— La finestra deve possedere un gadget di ingrandimen¬ 
to/riduzione 

— La finestra deve poter venire spostata 

— La finestra deve possedere dei gadget di variazione 
di profondità 

— La finestra deve possedere un gadget di chiusura 

— Il gadget delle dimensioni deve trovarsi al bordo destro 

— Il gadget delle dimensioni deve trovarsi al bordo in¬ 
feriore 
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SMART_REFRESH 

SIMPLE_REFRESH 

SUPER _BITMAP 
BACKDROP 
REPORTMOUSE 
GIMMEZEROZERO 


BORDERLESS 

ACTIVATE 

WINDOWACTIVE 

INREQUEST 

MENUSTATE 

NOCAREREFRESH 


— Dopo la scoperta da parte di un'altra finestra, questa 
finestra deve venire ridisegnata automaticamente 

— Dopo la scoperta da parte di un'altra finestra, il pro¬ 
gramma deve effettuare da solo la ricostruzione della 
parte di finestra scoperta 

— La finestra è solo una parte di un'area maggiore (Su¬ 
per BitMap) e verrà "refreshed" automaticamente 

— Finestra di sfondo (si trova sempre sotto tutte le altre 
finestre) 

— Ogni movimento del Mouse deve venire segnalato 
(ved. anche IDCMP flag) 

— All'interno di una finestra viene aperta una seconda fi¬ 
nestra invisibile. Tutte le coordinate di disegno si riferi¬ 
scono alla finestra interna. Vantaggio: le coordinate per 
esempio 0,0 non si troveranno più nella zona bordo 
della finestra (DRAG-BAR) 

— La finestra viene rappresentata senza bordo 

— La finestra viene attivata non appena viene aperta 

— Questo flag viene impostato da Intuition quando la fi¬ 
nestra è quella attiva 

— Questo flag viene impostato da Intuition quando la fi¬ 
nestra si trova in modo Request 

— Questo flag viene impostato da Intuition quando è atti¬ 
va la finestra con il menu inserito 

— Nessuna segnalazione di quando viene effettuato il 
Refresh. 
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CAPITOLO 3 


Cominciamo gradualmente: 
Operazioni bidimensionali 


Prima di scontrarci con il mondo spaziale, con tutte le sue altezze e profondità, do¬ 
vremmo osservare brevemente le tecniche grafiche essenziali per le due dimensioni. 
Molte di esse possono venire trasferite semplicemente nel mondo tridimensionale. 


Certamente molti di tali elementi vi sono già noti. Cerchiamo quindi di partire dagli 
aspetti noti e di ricercare ciò che è ignoto. Contemporaneamente ci procureremo gli 
elementi matematici di base, ai quali in seguito non potremo più rinunciare. Grafica 
è matematica, ed è un dato di fatto che probabilmente non vi farà piacere. 


Cerchiamo tuttavia di non spaventarci, esistono metodi e sistemi per descrivere in 
maniera comprensibile (e qui sta la differenza rispetto alla scuola) anche la noiosa ma¬ 
tematica scolastica. 


Cerchiamo di approfondirne gli argomenti pian piano e cominciamo con: 


3.1 Elementi grafici di base: Punto, Linea, Cerchio, Ellisse 


Cerchiamo di prendere confidenza con gli elementi di base di ogni grafico. Occupia¬ 
moci prima di tutto del punto. Dal momento che lo schermo del nostro computer, cosa 
non cosi ovvia, è composto da singoli punti, il punto rappresenta obbligatoriamente 
la più piccola unità grafica. Ogni linea, ogni cerchio, ogni altra figura non è composta 
nient’altro che da molti piccoli punti colorati. 


Ciò tuttavia non significa che i punti siano le unità grafiche più maneggevoli. E' molto 
più efficace e più comodo comporre i grafici con linee. Vedremo infatti che se ne fa 
un uso maggiore, essendo molto facile tracciare delle linee. Esse, sia matematicamen¬ 
te che graficamente, sono molto semplici da maneggiare, in breve, esse rappresenta¬ 
no l’utensile grafico. 


Dal momento che è abbastanza dispendioso, in termini di tempo, tracciare cerchi 
o ellissi con una velocità accettabile, troveremo quasi tutte le istruzioni per disegnare 
tali figure nei comandi di un buon interprete per BASIC. D'altra parte, in pochissimi 
sistemi operativi troviamo un supporto per la grafica (ma anche per altri scopi) così 
esteso, completo e semplice da utilizzare come quello fornito dal nostro Amiga. 


Il seguente programma in BASIC dovrebbe fornire alcuni begli esempi per il dise¬ 
gno di tali figure. Per quanto concerne gli ellissi, è necessario fare attenzione anche 
a quanto detto nel capitolo "Verso la Grafica in Basic". 
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Fig. 3.1 Punti 1 


****** + **** 4 -*********** 


** ** 

** Punti, Linee, +* 

** Cerchi, Ellissi ** 

** *♦ 


• »**i*4.t**4.****t*****«t* 

' Punti: 

COLOR 2,0 
POR x=0 TO 639 

PSET (x,50♦SIN(x/40)+100) 
NEXT x 

WHILE INKEY$= M " 

SLEEP 

WEND 








Fig. 3.2 Lìnee 


' Linee: 

COLOR 3,2 
CLS 

FOR x=0 TO 550 STEP 2 
xl = x 

yl « 40*SIN(x/40)+60 
x2 = 200*6IN(x/4ù)+250 
y2 = 80*SIN(x/50)+90 
LJNE (xl.yl)-<x2,y2> 
NEXT x 

WHILE INKEY*=““ 

SLEEP 

MENO 


* Cerchi ed ellissi: 

COLOR 3,0 
CLS 
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Fig 3.3 Cerchi ed ellissi 



FOR x=l TO 40 STEP .7 

CIRCLE (260,90).40*5*x,,,,100/x^2 
«XT x 

«HILE INKEY*="" 

SLEEP 

MENI' 


V^ora Punti: 

COLOR 2,0 

CLS 

POR x=l TO 250 

FOR y=- 100 TO 100 
w = ATN(y/x) 
r = SOR <x*x+y*y) 
h = .5 ♦ ,5»SIN(2*wtL0G(r)*10) 
XF h> = RN[>( 1 > THEN 
PSET (250-x,100+y) 

PSET (249+x,100-y) 





END IF 
NEXT y 
NEXT x 

WHILE INKEY#="" 
SLEEP 
WEND 



Fig. 3.4 Punti 2 


Non vorremmo spiegare ulteriormente questo programma, in quanto ci porterebbe 
fuori argomento. Dato che si serve solo come suggerimento, osserviamolo sempli¬ 
cemente. 


Spesso, anche nel presente libro, ci ritroveremo con il compito di dover tracciare 
non solo una linea (possibile anche tramite i comandi corrispondenti), ma di dover cal¬ 
colare punti di intersezione con altre linee (o piani), di dover tagliare delle linee o simili. 
Per fare ciò abbiamo bisogno di una buona infarinatura in matematica. 


Naturalmente l’equazione di una retta è essenziale, e chiunque l'avrà vista almeno 
una volta nella vita: 

a*x + b’y + c = 0 (Forma implicita) 
oppure: 

y = m*x + n (Forma esplicita) 
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dove m rappresenta l’inclinazione ed n il punto di intersezione con l’asse y, quindi vale: 


Xg-X, 


E' possibile anche la seguente forma- 

y = m*(x-x 1 ) + y, (Equazione di una retta passante per un punto) 

dove: 

x^y, rappresentano le coordinate di un punto della retta 
m rappresenta l’inclinazione (ved. sopra) 

Da ciò deriva la formula seguente: 

y ' yi = x ' (Equazione della retta passante per due punti) 

y 2 ■ y, x 2 • x. 

Un’ultima forma non molto diffusa è la seguente: 

_ x + y_ = 1 (Forma di intersezione con gli assi) 

a b 

Questa retta taglia l’asse x nel punto P (a,0) e l’asse y nel punto Q (0,b). 



-g 3.5 Equazione della retta 
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Naturalmente esistono anche alcune altre formule, che tuttavia in questa fase non 
ci interessano. Incontreremo molto spesso alcune di queste equazioni, ecco perché 
le rappresentiamo molto sommariamente. Infatti, al momento deH’utilizzo, la singola for¬ 
mula verrà spiegata ulteriormente. 

Anche per quanto concerne i cerchi e le ellissi (il cerchio non è altro che un caso 
speciale di ellisse) esistono delle equazioni matematiche che forse sono un pochino 
meno conociute: 

* 2 + y 2 = 1 (Formula implicita) 

a 2 b 2 


dove: 

a = raggio dell’ellisse in direzione x 
b = raggio dell’ellisse in direzione y 

mentre per il cerchio vale a = b = r, per cui: 


* 2 + y 2 _ i 

r 2 


Un'altra formula molto utilizzata è la seguente: 


d = a * cos(w) 
y = b * sin(w) 


(Forma parametrica) 


dove: 


a = raggio dell’ellisse normalizzata nell’origine in direzione x 
b = raggio dell’ellisse normalizzata nell’origine in direzione y 
w = angolo fra il raggio generico dell’ellisse e l'asse x 


Per il cerchio vale naturalmente: a = b 
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Dopo questa breve divagazione entriamo direttamente nell’argomento, che occupe¬ 
rà tutto il capitolo. Nel caso in cui si desideri apprendere qualcosa in più e di più detta¬ 
gliato sugli argomenti appena introdotti, si potrà fare riferimento all'appendice. In essa 
sono contenuti ulteriori chiarimenti. 


3.2 Trasformazioni in 2 dimensioni 


Nel nostro percorso verso mondi spaziali, le cosidette trasformazioni rivestono un 
ruolo importante. Con la parola trasformazione si intende, nel senso più ampio, una 
qualunque trasformazione di una immagine già esistente. Ipotizziamo di aver tracciato 
una piccola immagine (una casa o simili) sullo schermo. Conosciamo le coordinate dei 
diversi vertici ed i punti che devono venire collegati l’uno con l’altro tramite segmenti. 
Ora vogliamo delle operazioni matematiche semplici che ci rendano possibile poter 
modificare questa casa tramite un programma, senza dover modificare a mano le coor¬ 
dinate, una volta stabilite, spostarla sul video, ingrandirla o ridurla. Inoltre vogliamo ruo¬ 
tarla e specchiarla, in breve: trasformarla. 

Le trasformazioni rivestono un ruolo essenziale in molte applicazioni. Gli architetti ap¬ 
prezzeranno molto il fatto di poter osservare le loro opere anche sotto un altro angolo 
di visuale, oppure quello di poter ingrandire i dettagli. Sicuramente anche i disegnatori 
di cartoni animati sono alla ricerca di una tecnica che renda loro possibile spostare 
o ruotare delle figure. 

E' per questo motivo che è importante tracciare un’immagine sul video non solo punto 
per punto, cosa che viene resa possibile molto semplicemente con programmi di grafi¬ 
ca come il "Deluxe Paint" o simili. E’ molto più importante per noi che un’immagine 
sia composta da una serie di linee, i cui punti finali sono a noi noti grazie alle loro coor¬ 
dinate. Óra, abbiamo memorizzato le coordinate per il nostro piccolissimo "mondo delle 
'mmagini" e di conseguenza possiamo modificarle in qualunque momento tramite ma¬ 
nipolazioni matematiche, cioè trasformazioni. 

Nel presente capitolo ci occuperemo solo dell'effettuazione di tali trasformazioni su 
di un piano. Impareremo quindi i procedimenti matematici necessari ed il loro utilizzo. 
T ali procedimenti ci accompagneranno in seguito per una grossa parte del presente 
ibro. 


3.2.1 Elementi di base matematici 




Prima di esaminare le diverse trasformazioni, è necessario affrontare alcuni elementi 
-atematici di base. Sarà assolutamente necessario comprendere e essere in grado 
a dominare, almeno un po’, tali argomenti, in quanto ci accompagneranno per tutto 
i oro. Senza di essi, una comprensione approfondita delle singole operazioni e delle 
-angolazioni grafiche è pressoché impossibile. Sarà necessario prestare particolare 
sanzione alla moltiplicazione delle matrici. Per noi questa è una delle operazioni più 
r-oodanti. 
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In questa sede le cosidette matrici ci terranno occupati molto concretamente. Il cal¬ 
colo delle matrici non è molto complicato, contrariamente a quanto si senta spesso di¬ 
re in giro. Esso assume tuttavia un significato enorme per ogni tipo di trasformazione, 
in quanto rappresenta il sistema più semplice per la loro realizzazione. 


Se, arrivati al termine della lettura delle pagine seguenti, non si sarà ancora in grado 
di comprendere l'utilizzo di quanto in esse appreso, sarà assolutamente naturale. Per 
poter cominciare a capire, sarà necessario attendere di essere arrivati alla fine del ca¬ 
pitolo relativo alle due dimensioni. 

Il concetto di matrice rappresenta per noi un ordinamento rettangolare di diversi numeri: 


A = 


a 11 

a 12 

a 13 

a 14 

a 15 — 

a 21 

a 22 

a 23 

a 24 

a 25 

a 31 - 

a 32 

a 33 

a 34 

a 35 

a 4 i 

a 42 


: 

• . , . 

Smi 

®m2 

®m3 

^m4 

SmS 



Ogni numero a lk (per esempio a^ oppure a 34 ) rappresenta un elemento della matri¬ 
ce. (Gli indici degli elementi di cui sopra servono solo per differenziare, mentre i nomi 
delle matrici sono normalmente delle lettere maiuscole, in questo caso A). La matrice 
è composta da righe (riga orizzontale di elementi) e colonne (riga verticale di elementi). 
Essa viene detta del tipo (m,n), dal momento che possiede m righe ed n colonne, op¬ 
pure, più semplicemente matrice (m,n). Gli elementi a^, a 12 , a 13 , ecc. (oppure breve¬ 
mente: a 1k ) rappresentano la prima riga, tutti gli elementi a 2k rappresentano la seconda 
riga, ecc. Per quanto riguarda le colonne il procedimento è analogo. Un elemento a ik 
si trova quindi nella riga i e nella colonna k. Si tratta quindi di una matrice bidimensionale. 


Il numero degli elementi in una riga può essere uguale (ma non necessariamente) 
al numero degli elementi di una colonna. In tale caso si tratta di una matrice quadrata 
a n-righe, per esempio: 



Questa matrice è quadrata e composta da 3 righe. Le matrici quadrate sono partico¬ 
larmente importanti, dal momento che esse, conformemente alla definizione, sono at¬ 
tribuite ad un numero, il cosidetto determinante. I determinanti vengono usati per 
esempio quando si devono risolvere dei sistemi di equazioni a più incognite. 
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jn altro caso particolare di matrici sono quelle matrici che possiedono una sola riga 
: una sola colonna. Di conseguenza esse saranno del tipo (1,n) oppure (m,1), (vedi 
sccra), esempio: 

A - (1 5 3 -4) 

in questo caso si tratta di una matrice che possiede una sola riga (e che ha quattro 
colonne"). Essa viene chiamata anche "vettore di riga". L'altro caso è il cosidetto 
•ettore di colonna”, esempio: 



Ora, con le matrici è possibile anche effettuare dei calcoli. Infatti possiamo somma- 
*e sottrarre e moltiplicare per un numero semplice o anche per un'altra matrice. 

Senza divagare troppo, orientiamoci verso la operazione matriciale di cui abbiamo 
assoluto bisogno: la moltiplicazione di due matrici concatenate. 

il concetto di "matrici concatenate" significa propriamente quanto segue: 

E' possibile moltiplicare l’una per l'altra due matrici, ma esse devono adempiere a 
ceterminate condizioni, cioè devono essere concatenate. 

In altre parole, è possibile moltiplicare una per l'altra due matrici solo se la prima 
possiede un numero di colonne uguale al numero di righe dell'altra. Un esempio di 

a moltiplicazione possibile sarebbe quindi: 




2 

5 

8 


A possiede tre colonne, B possiede tre righe, di conseguenza la condizione sarebbe 
adempiuta. Vediamo però anche che la moltiplicazione B*A non è permessa e che, 
anche se lo fosse, il risultato non sarebbe lo stesso di quello di A*B. La sequenza dei 
'attori è di conseguenza molto importante. Fare tuttavia attenzione al fatto che una mol- 
rolicazione di matrici fra due matrici quadrate (vedi sopra) è sempre permessa. In ef- 
fetti, in seguito, avremo prevalentemente a che fare con matrici quadrate. 


Il risultato di una moltiplicazione di matrici è anch'esso una matrice. Quest'ultima pos¬ 
sedè lo stesso numero di righe della prima matrice (A) e lo stesso numero di colonne 
sella seconda matrice (B). Il risultato della moltiplicazione di cui sopra ((3,3) - Matrice) 
3 2 - Matrice) sarebbe una n atrice del tipo (3,2) (3 righe, 2 colonne). 











Il calcolo di questa matrice di risultato C è un po’ complicato. Per i lettori esperti, 
forniamo la formula di un singolo elemento in forma matematica abbreviata: 


n 

c ik = ^ a,,*b )k = a n ' b| k + a, 2 *b 2k + ... + a, n *b nk 

j = 1 

che significa: l'elemento c ik viene determinato dalla somma di tutti gli a,j*b jk , dove 
j = 1 fino a j = n. 


Spiegazione dei simboli: 

c ik un elemento della matrice di risultato C 

ai, un elemento della matrice A 

b |k un elemento della matrice B 

n numero delle colonne di A e numero delle righe di B 


Chiariamo meglio il tutto con il seguente esempio: 

Calcoliamo, come dice la formula, un elemento c, k della matrice risultato, moltipli¬ 
cando tutti gli elementi delle righe i di A con gli elementi corrispondenti delle colonne 
k di B e sommandone i risultati: 


C = A * B 


( 

(i 


a 11 

a 12 

a 13 


t>11 

bi 2 

a 2 i 

a 22 

a 23 

* 

b 2 i 

b 2 2 

a 31 

a 32 

a 33 


t>31 

&32 


2 3 

5 6 

8 9 


( 1*1 + 2*3 + 3* 

4*1 + 5*3 + 6* 

7*1 + 8*3 + 9* 

- ( 


) 

) • (i ì) 

*4 + 3*6 \ 
*4 + 6*6 ) 
*4 + 9*6 / 


22 28 
49 64 

76 100 


1 * 2 + 2 * 
4*2 + 5* 
7*2 + 8* 


Ci i c 21 
C 2 1 c 22 

C 31 c 32 


) 


Questo calcolo, per l’essere umano, può sembrare un po’ complicato, ma lascia un 
computer completamente indifferente. Fare tuttavia attenzione al fatto che nella penul¬ 
tima riga l’espressione "1*1 + 2*3 + 3*5" rappresenta per esempio un solo elemen- 





:c Cerchiamo ora di completare ulteriormente l’esempio. Cioè: l'elemento superiore 
snistro della matrice risultato C, cioè l’elemento c n , viene calcolato tramite: 

Cii = a n*bn + a 12 *b 2 i + a 13 *b 31 

L'elemento c ì2 viene calcolato tramite ... ecc. 



Ora verifichiamo la nostra preparazione con i due esercizi seguenti: 


Calcoliamo la matrice risultato C della moltiplicazione di matrici: 


C = A*B 





-5 

7 


) 


C = A*B 



5 2 8 \ 
Olii 
5 3 2 I * 

2 0 5 / 

4 4 4 / 



Osserviamo ancora alcune regole di calcolo. Se moltiplichiamo una riga di matrici, 
sarà per noi indifferente quale moltiplicazione eseguire per prima, se non ne modifi¬ 
chiamo la sequenza: in termini matematici: 

A*(B*C) = (A*B)*C 

In ogni caso sarebbe errato: A*(B*C) = (A*C)*B 


Come già determinato precedentemente, A*B = B*A non vale, e ciò è molto im- 

oortante. 
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Esistono alcuni tipi di matrici, per i quali è possìbile moltiplicare un’altra matrice sen¬ 
za modificare nulla. Si tratta delle matrici quadrate nelle quali tutti gli elementi sono uguali 
a zero, tranne gli elementi della cosidetta diagonale principale devono contenere il va¬ 
lore 1; tali matrici vengono dette anche matrici unitarie quadrate E: 




(1) oppure 


oppure 


Per esse vale: 


A*E = A 


Vediamo ora come utilizzare le matrici nella grafica per computer, per esempio per 
trasformazioni (e in tali applicazioni sarà molto più semplice di quanto non sembri in 
questa sede): 


3.2.2 Ingrandimenti/Riduzioni bidimensionali 

Esistono naturalmente altre possibilità di descrivere matematicamente le diverse tra¬ 
sformazioni grafiche oltre alle matrici. E' stato tuttavia determinato che nessuna di que¬ 
ste possibilità è cosi intuitiva e semplice da manipolare come le matrici. 


Come abbiamo già detto, vogliamo manipolare le coordinate dei singoli punti del 
nostro mondo da un punto di vista matematico ( = trasformare). Al fine però di non som¬ 
mare punti e matrici come lo si fa con mele e pere, è necessario descrivere ogni punto 
in un modo adeguato ad entrare in uno schema di matrici. A tale scopo, prendiamo 
le due coordinate x e y di un punto e vediamole quasi come una matrice (1,2). Ipotiz¬ 
ziamo che un punto possieda le coordinate x e y, la sua matrice sarà: 

P(x.y) = (x y) 

In questo caso si tratta naturalmente di una definizione assolutamente arbitraria, che 
non deve venire dimostrata, ma che ci sarà molto utile in futuro. 


Se ora vogliamo trasformare un punto, moltiplichiamolo per una cosidetta matrice 
di trasformazione. Se abbiamo scelto correttamente questa matrice, la matrice di risul¬ 
tato dovrebbe fornire le coordinate del punto trasformato. La matrice di risultato deve 
di conseguenza essere di nuovo del tipo (1,2) (e quindi contenere le coordinate). 

Cerchiamo quindi una matrice di trasformazione T, la quale, se moltiplicata per il punto 
di partenza P, determini il punto trasformato P’ (cioè la sua matrice): 


P’ - P * T 
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Se ora moltiplichiamo tutti i punti della nostra immagine per T, avremo trasformato 
tutta l’immagine. L'aspetto finale trasformato di tale immagine dipenderà naturalmente 
dagli elementi della matrice T. Ipotizziamo che T sia una matrice unitaria (vedi elementi 
di base matematici): 


- (ì?) 


In questo caso, l’intera immagine resta esattamente com'era, dal momento che nel 
nostro esempio di cui sopra, P è uguale a P’. 

Ipotizziamo invece di utilizzare la matrice: 


r ’ ’ (° °) 


Il risultato sarà 
P' = P * T, 


(I?) 


= (x y) * 

= (x*2 + y*0 ’ x*0 + y*1) 

= (2*x y) 

= (x’ y’) 

Le ultime due righe, sotto forma di parametri, saranno: 
x’ = 2*x 

y’ = y 

Vediamo quindi che, grazie alla trasformazione, ogni nuova coordinata x diventa il 
doppio di quanto fosse in precedenza. Ciò significherà quindi una deformazione (op¬ 
pure ingrandimento) in direzione x. 




Fig. 3.8 Raddoppio di tutte le Coordinate x 
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Allo stesso modo, se cerchiamo una matrice che raddoppi tutte le coordinate y, e 
che di conseguenza deformi l’immagine in direzione y, troveremo: 



Ora, se vogliamo ingrandire (ridurre) un’immagine sia in direzione x che in direzione 
y, avremo bisogno della seguente formula: 

P' = (P*T 1 )*T2 

Dapprima ingrandiamola quindi in direzione x, dopodiché in direzione y. Dal mo¬ 
mento che, secondo le regole di calcolo per le matrici, possiamo scrivere anche que¬ 
sta formula: 


P’ = P*(T 1 *T 2 ) 


sarà altrettanto semplice trovare una matrice T 3 = Ti *T 2 , la quale esegua ambedue 
le trasformazioni in una volta sola: 

T 3 = VT 2 



Se generalizziamo tutto ciò, otterremo la seguente matrice di trasformazione S, per 
ingrandimenti/riduzioni (scala): 



Dove: 

S x = fattore di scala in direzione x 
S y = fattore di scala in direzione y 

A seconda del valore per S x o S y , l’immagine verrà modificata come segue: 

S*/ y > 1 — ingrandimento 
Sx/y = 1 — nessuna modifica 
0 < Sx/ y < 1 — riduzione 

S^y < 0 — specchiatura contemporanea sull’asse x/y 
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Si dovrà cercare di evitare di introdurre valori inferiori o uguali a zero per i fattori 
c scala, dal momento che in tal caso non si tratterà più di un semplice ingrandimento 
o riduzione. 


Con questa semplice matrice abbiamo risolto i nostri problemi. Possiamo ora riassu¬ 
mere più scale, che dovranno venire eseguite una dopo l'altra, in una sola matrice a 
seconda delle applicazioni, oppure ottenere lo stesso risultato anche tramite diverse 
moltiplicazioni di matrici. Nell'elaboratore, la messa in scala di un punto P (x, y) viene 
eseguito con la matrice di trasformazione S secondo il seguente schema: 


= 


= P(x,y) * S(Sx, Sy) 



= (S x *x S/y) 
= (x' y') 


Scomponiamo di nuovo questa formula matriciale del nostro punto risultante P’ in 
-*i formato di coordinate, e otterremo: 



Queste sono le due formule che il computer dovrà calcolare. La deviazione, appa- 
*e~temente complicata, per le matrici, ci sarà molto utile in futuro. 

seguente programma in Basic dovrebbe portarci un po' più vicino all’applicazione 
ce e trasformazioni in scala. 


********************* 


Trasformazione 
Bidimensiona1e 


Scala 


• ••«•***** * * * * * ********** 


-ettura di punti e linee: 
anzpX, anz 1 V. 

SHARED x.punkte(anzpX-1), y.punkte(anzpX-1) 

:• SHARED s. 1 inienSC <anzl3C-l ) , e. 1 inienX <anzl5C-l ) 
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'Fattori di messa in scala: 
sx = 1 
sy = 1 

'Posizione immagine: 
mxV. = MOUSE <3 ) 
my% = MOUSE (4) 

'Lettura punti: 

FOR i=0 TO anzpX-1 

READ x.punkte(i), y.punkte(i) 

'PRXNT i": "x.punkte(i1, y.punkte(i) 
NEXT i 

'Lettura linee (Collegamenti dei punti): 
FOR i=0 TO anzlX-1 

READ s. 1 inienX(i), e.linienX(i) 

NEXT i 


' Loop principale: 

WHILE c<>27 'fino a ESC 

CLS 'canee11 azione schermo 

' loop di tracciato: 

FOR i=0 TO ar.zlX-1 

xlX = x. punkte (s. 1 inien/i ( i ) ) 
y\V. = y.punkte(s.1inienX(i)) 
x2 V. * x. punk te (e. 1 inienX ( i ) ) 
y2V. « y.punkte (e. linieri<i) ) 

LINE (mxX+xlX, my3£-ylX> - (mxX+x2X, 

NEXT i 


‘ATtesa di uri tasto: 

c$* " " 

m '/.=0 


WHILE c*«"" AND 
SLEEP 

c*=INKEY* 

m:c=MOUSE(0> 

WEND 


'Attendere e rendere possibile 
'il Multitasking 

'eventualmente prelevamento tasto 
’o stato del Mouse 


sx = 1 
sy * 1 

IF mXOO THEN ' Azionamento tasto del Mouse? 

mxX = MOUSE<1) 'si -> nuova Posizione 
myY. = MOUSE (2) 







ELSE 

c = ASC(c*> 
IF c=28 THEN 
sy « 1.2 
END IF 

IF c-29 THEN 
sy » . 8 
END IF 

IF c = 30 THEN 
sx = 1.2 
END IF 

IF c*31 THEN 
sx » . 8 
END IF 
END IF 


'Cursore verso l'alto? 
'si -> Ingrandimento y 

'Cursore verso il basso? 
'si -> Riduzione y 

'Cursore a sinistra? 

'si -> Ingrandimento x 

'Cursore a destra? 

'si -> Riduzione x 


'Trasformazione dell’intera immagine: 
CALL transformiere.bild(sx,sy) 

WEND 


END 


Trasformazione di tutte le coordinate dell'immagine: 
SUB transformiere.bild(sx,sy) STATIC 
SHARED i, anzpX 
FOR i = 0 TO anzpJi-1 

CALL s.transform(sx,sy) 

NEXT i 
end sub 

Moltiplicazione Matriciale P2=P1*S: 

EJB s.transform(sx,sy) STATIC 
SHARED i 

x. punkte(i) = sx«x.punkte(i> 

y. punkte(i) = sy*y.punkte(i) 

END SUB 


lati dell'immagine: 

Numero dei punti / Numero delle linee: 
TATA 33 
DATA 30 


riordinate del punto: 


:c.’a 

0, 

3, 

0, 7, 

2 , e. 

4, 

8 , 

4, 

12 


6. 

13, 

20,13, 

22,12, 

22, 

8, 

24, 

8 

.-'A 

26, 

7, 

24,12, 

26, 3, 

24 » 

3, 

24, 

0 

: — "a. 

20, 

0, 

20, 3, 

6, 3, 

6, 

0. 

2, 

0 

z±~c. 

o 

3, 

6, 9. 

6. 12, 

20, 

12, 

20, 

9 


22, 

5, 

20» 6, 

22, 7, 

24, 

6, 

4, 

3 


n 

6, 

4, 7, 

6, 6 









' Linee (Collegamenti dei punti): 


DATA 

0. 1, 

1, 2, 

2, 9, 

9, 10, 

9,11 

DATA 

10,12, 

12, 0, 

3. 4, 

4, 5. 

5, 6 

DATA 

6, 7, 

7, 8, 

21,22, 

22,23, 

23,24 

DATA 

24,21, 

13,14, 

14,15, 

15,16, 

17,13 

DATA 

18,19, 

19,20, 

25,26, 

26,27, 

27,28 

DATA 

23,25, 

29,30, 

30,31, 

31,32, 

32,29 
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In questo programma vengono già presentati gli elementi di base di una gestione 
g-afica dei dati, nella quale ci addentreremo esaurientemente solo nel prossimo capi¬ 
lo, al momento del primo incontro del ‘‘mondo" tridimensionale. Questo programma 
caccia una piccola immagine sul monitor. Tramite i tasti del cursore siamo ora in grado 
ci ingrandire o ridurre l'immagine in direzione x oppure y. Le funzioni di tali tasti sono 
e seguenti: 


Cursore verso l'alto 
Cursore verso il basso 
Cursore verso destra 
Cursore verso sinistra 
Esc 

~asto del Mouse 


Ingrandimento in direzione y 
Riduzione in direzione y 
Ingrandimento in direzione x 
Riduzione in direzione x 
Termine del programma 

Posizionamento dell'immagine a seconda della posizione 
del Mouse 


La definizione dell’oggetto si trova nelle righe DATA alla fine del programma. In esse 
sono contenute le coordinate x ed y di ogni singolo vertice. Al termine sono contenuti 
numeri di quei punti che descrivono un segmento. I dati vengono caricati in matrice 
e possono venire manipolati in qualunque momento come tale. 


Le Sub-Routine transformiere.bild () e s.transform () sono molto importanti per il no¬ 
stro compito. La seconda esegue una moltiplicazione matriciale di un singolo punto 
con la matrice di scala S (con gli elementi S x e S y ). Il parametro “i“ fornisce il numero 
cei singolo punto nella matrice dei punti. L'altra routine trasforma tutti i punti dell’imma- 
g ne, tutte le volte che viene chiamata da s.transformQ, per ogni singolo punto. 


Gli elementi matriciali S x ed S y provengono dal programma principale e vengono 
ripostati a seconda delle immissioni che vengono effettuate tramite i tasti cursore. Il 
’esto del programma è praticamente solo decorativo o complementare, e potrà venire 
modificato o ampliato in qualunque momento. Eventuali modifiche o ampliamenti sa- 
'ebbero comunque il sistema migliore per prendere dimestichezza con l’argomento 
ci questo programma. 


3.2.3 Riflessioni 

Grazie alla moltiplicazione delle matrici, anche le riflessioni attorno ad un determina¬ 
ci asse sono facilmente realizzabili. In questo caso è inoltre molto semplice trovare una 
matrice di trasformazione, dal momento che per la riflessione utilizzeremo le seguenti 
equazioni: 








Specchiatura attorno all’asse y: 


x = -x 

y’ = y 


Ciò ci riporta alla scala, per cui abbiamo già la matrice adeguata: 



Fig. 3.10 Specchiatura 


Specchiatura attorno all’asse x: 

M» - ( 0 °) 

Specchiatura attorno all'asse y: 

m,- (-J ?) 


Se ora vogliamo effettuare una riflessione attorno ad ambedue gli assi, cosa che cor¬ 
risponderebbe ad una riflessione di punti, avremmo bisogno di eseguire solo una pic¬ 
cola moltiplicazione di matrici: 



: 




















Dal momento che anche in questo caso si tratta dello stesso principio come per la 
-■essa in scala, non addentriamoci ulteriormente e passiamo all'argomento successi¬ 
le Per l'argomento presente, sarà sufficiente incorporare la riflessione nel programma 
precedentemente visto (es: riflessione in seguito alla pressione di un tasto, ecc). 


3.2.4 Rotazioni bidimensionali 

Stiamo per affrontare un argomento molto interessante, cioè la rotazione di singoli 
punti attorno all'origine delle coordinate. Spesso sarà infatti necessario ruotare singoli 
paggetti oppure intere immagini, al fine di poterle osservare da un altro punto di vista. 
- elemento di base per una rotazione di questo genere attorno ad un punto a piacere 
e costituito dalla rotazione di un punto attorno al punto 0 delle coordinate, vediamo 
cuindi di approfondire quest’ultimo aspetto. 


Naturalmente ci interessa una matrice, con la quale sia possibile eseguire una rota- 
zone di questo genere. Al fine di trovare tale matrice, dovremo dapprima fare una de¬ 
lazione sulle equazioni di parametri corrispondenti. Osserviamo quindi l'immagine 
seguente: 


y 

P(x',y) 


r / 




/ w 




X 


3.11 Rotazione di un punto attorno all'origine 


Forse non sappiamo, o abbiamo dimenticato, a cosa servano le funzioni angolari 
seno o coseno, ecc). Nessun problema, possiamo rinfrescarci la memoria in appendi¬ 
ce In essa sono contenuti tutti gli elementi di base, e le spiegazioni di cosa significhi 
■‘■unzioni angolari”. 


Per quanto concerne la figura, vediamo che in essa un punto P(x,y) viene ruotato 
3= angolo w attorno al punto 0. Il punto risultante si chiama P’(x’,y'). Sia P che P' han- 
'« naturalmente la stessa distanza r dal centro di rotazione. Il collegamento tra P ed 
i punto 0 forma, insieme con l'asse x, l’angolo a. Di conseguenza, il collegamento fra 
= ' ed il punto 0, rispetto ili'asse x, forma l’angolo w + a. 










Conformemente alle definizioni per seno e coseno, dal nostro schizzo potremo de¬ 
durre le seguenti quattro equazioni: 

cos(a) = x/r 
sin(a) = y/r 
cos(a + w) = x’/r 
sin(a + w) = y’/r 

Con ciò avremmo già costituito un solido elemento di base, sul quale poter in segui¬ 
to costruire. Ambedue gli ultimi rapporti possono venire trasformati con facilità in: 

x' = r * cos(a + w) 
y’ = r * sin(a + w) 

x' ed y', come noto, sono le due coordinate del punto ruotato, che noi stiamo cer¬ 
cando. x ed y rappresentano le coordinate del punto originale e w è l'angolo di rotazione. 

E' probabile che i valori r ed a ci procurino un po' di confusione, dal momento che 
sono non noti. Cerchiamo quindi di sostituirli e per fare ciò utilizzeremo due cosidetti 
teoremi di addizione per funzioni angolari, per i quali non è necessaria una dimostra¬ 
zione, dal momento che sono reperibili su qualunque libro di trigonometria: 

sin(s + t) = sin(s)*cos(t) + cos(s)*sin(t) 
cos(s + t) = cos(s)*cos(t) - sin(s)*sin(t) 

A questo punto inseriremo naturalmente il nostro a al posto di s ed il nostro w al po¬ 
sto di t. Con ciò possiamo trasformare senza fatica le equazioni di cui sopra: 

x' = r * [cos(a) * cos(w) - sin(a) * sin(w)] 
y’ = r * [sin(a) * cos(w) + cos(a) * sin(w)] 

Il lettore si chiederà cosa fare con tale mostro di formula, dal momento che a e r 
sono ancora presenti. Osserviamo comunque le due ultimissime formule che non ab¬ 
biamo ancora utilizzato. Esse ci permettono di sostituire tutti i sin(a) con y/r e tutti i cos(a) 
con x/r. Con ciò avremmo sostituito tutti i termini, nei quali era presente a: 

x’ = r * [x/r * cos(w) - y/r * sin(w)] 
y' = r * [y/r * cos(w) + x/r * sin(w)] 

A questo punto abbiamo ancora una sola grandezza non nota: r. Ma anche questa 
è solo apparente. Infatti, se eliminiamo le parentesi quadre, questo elemento di distur¬ 
bo scomparirà immediatamente: 

x' = x * cos(w) - y ’ sin(w) 
y’ = x * sin(w) + y * cos(w) 




Abbiamo finalmente ottenuto ciò che volevamo: equazioni, dalle quali sia possibile 
calcolare, dai parametri noti x e y (coordinate del punto) e w (angolo di rotazione), le 
coordinate x' ed y' del punto ruotato. 


A questo punto possiamo partire alla ricerca di una matrice adeguata. Osserviamo 
ancora una volta la moltiplicazione generica di una matrice di punti per una matrice 
quadrata, che era: 



= (x*an + y*a 21 x*ai 2 + y a 22 ) 


Nel caso della rotazione, la matrice di punti risultante dovrebbe essere la seguente: 
P' = (x*cos(w) - y*sin(w) x*sin(w) + y*cos(w)) 

Ipotizziamo la seguente uguaglianza: 

a,, = cos(w) 
a 21 = -sin(w) 
a 12 = sin(w) 
a 22 = cos(w) 

e otterremo la seguente matrice di trasformazione per la rotazione generica (in sen¬ 
so antiorario) attorno all’origine delle coordinate: 


cos(w) sin(w) 
-sin(w) cos(w) 


R(w) = ^. s 
Esempio: 


Ipotizziamo che si desideri ruotare il punto P, con le coordinate P(3,4), di un angolo 
di 60° attorno al punto 0. (Chi esegue il conteggio con la calcolatrice la dovrà imposta¬ 
re a DEG per un calcolo normale dei gradi. Normalmente i computer effettuano il cal¬ 
colo con RAD). La nostra matrice di rotazione sarà quindi: 


R(60) = 


cos(60) 

-sin(60) 



( 


0.5 

- 0.866 



Il risultante punto P’ potrà quindi venire ottenuto come segue: 


P' = P(3,4) * R(60) = (3 4)* 

= (3*0.5-4*0.866 3*0.866 + 4*0.5) 

= (-1.964 4.598) 
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Le coordinate del punto risultante saranno quindi P’(- 1 . 964 , 4.598). 


y 


p* 


\ 4 


3 


\ 6 

0 / 

\ 2h 


X 1 . 



12 3 X 




Fig. 3.12 Rotazione del punto P(3,4) di w=60 Gradi 


A questo punto sono naturalmente molto semplici anche le trasformazioni combina¬ 
te. Ipotizziamo di voler ruotare e ingrandire l’oggetto. Normalmente dovremmo effet¬ 
tuare queste due trasformazioni l'una dopo l’altra secondo la formula 


P’ = (P*R)*S 


Dal momento però che, come abbiamo visto precedentemente, vale: 


P’ = (P*R)*S = P*(R*S) 


potremo anche calcolare una sola matrice di trasformazione comune M = R(w)*S(S x ,S y ), 
che esegua sia la rotazione che la scala: 


M = R(w)*S(S x ,S y ) 


/ cos(w) 

^ -sin(w) 

( cos(w)*S x 
-sin(w)*S x 


sin(w) J , 
cos(w) J 

sin(w)*S y \ 
cos(w)*S y J 



Nella stessa maniera, sarà possibile eseguire più rotazioni una dopo l'altra con una 
sola matrice. 


Il seguente programma chiarirà ulteriormente il principio della rotazione: 


%&■ 

’m 


60 













•*”•*»***************«»****»**»******* 

** 

** dotazione di un tratto di curva ** 

*♦ 

**•’■•* •*******♦*********»■»*»*»»»»<**** 


3i- laraziorie Funzione: 
'•.f(x>=SIN(x)/x 

I* p = FOR GOTO errore 


. « 320 

; = :so 
*: = io 
*2 * 50 


i 


di 


funzione: 

‘ Coordinata 
1 Coordinata 
‘Fattore di 
'Fattore di 


x dell'origine 
y del 1'origine 
ingrandimento x 
ingrandimento y 


per modificare 1 'angolo di rotazione 
r lF . s *0 TO 30 STEP 5 

— - wi/130 * 3.141593 'Convertire l'angolo in RAD 


Inserimento dell'asse y delle coordinate: 
* a : y = 200 : CALL rot.transform(w) 
s ScT (xrX,yrX ),2 

• » a : y = 0 : CALL rot.transform<w> 

-C**E -(xrX.yrX), 2 


Inserimento dell'asse x delle coordinate: 

* * 0 : y = b : CALL rot.transform(w) 

=-SET <xrX,yrJO,2 

* ~ 640 : y = b : CALL rot.transform(w) 
LINE -<xrX,yrX),2 


» * 0 

* - t- - f2*FNf < (x-a )/f 1 ) 'Calcolo del valore di funzione per x*0 

rot.transform< w) 

C "5ET (xrZ,yrX),3 ' Impostazione del punto 


'Calcolo dei valori di funzione: 
r ?R x=0 TO 639 

y = b - f2*FNf < (x-a)/f 1 ) 'Calcolo dei valori di funzione 

CALL rot.transform(w) ’e rotazione 

LINE - <xr>£, yrX), 3 'Linea dall'ultimo punto 


onerr: 
«EXT x 
EXT wi 


EM 






• Trasformazione della rotazione per 
SUB rot.transform(w) STATIC 
SHARED x,y.xrX,yrX 
xrX = x*COS(w) + y*SIN(w) 

yrX = -x*SIN(w) + y«COS(w> 

END SUB 


errore: 

e=ERR 

IF e=l1 OR e=6 THEN 
RÉSUMÉ onerr 
END IF 
ERROR e 


punto 
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1 programma presenta un’applicazione interessante della rotazione. In esso infatti 
s rurva di una funzione di un determinato angolo w viene ruotata e tracciata sulla fine- 
sra di output che era stata definita nella riga DEF-FN (in questo programma 
t«. = sin(x)/x). Il centro di rotazione si trova come sempre nel punto 0 delle coordinate 
ae a finestra grafica, dal momento che non è possibile effettuare delle rotazioni attorno 
se un punto a piacere. 


| _a routine che si occupa della rotazione si chiama rot.transformQ e esegue con le 
rxrcmate x e y una rotaziona attorno all'angolo w che è stato fornito. Le coordinate 
*s_*anti vengono fornite da questo sotto-programma in xr e yr. 

Assumendo, il loop più esterno FOR...NEXT incrementa gradualmente la variabile 
m cei' angolo di rotazione. Gli assi delle coordinate vengono tracciati brevemente (an- 
— essi ruotati) fornendo quindi il disegno della curva ruotata. In essa viene sempre 
Tace ata una riga dall’ultimo punto tracciato della curva fino al punto attuale. Il primo 
cu-to per x = 0 dovrà di conseguenza venire calcolato separatamente. Cerchiamo di 
-cn farci irritare dalla formula un po’ strana relativa al calcolo del valore della funzione, 
ca-ametri a, b, fi e f2 servono solo a porre la funzione, correttamente e con dimensio¬ 
ne esatta, aH’interno della finestra (infatti anche in questo caso non si tratta di altro che 
o ^na trasformazione). 


3 er motivi di velocità può essere un vantaggio, in alcune applicazioni, utilizzare delle 
«cele di seno e di coseno, invece di calcolare ogni volta queste funzioni angolari. Se 
s ce-ca il seno di un determinato angolo, sarà sufficiente che il programma faccia rife- 
Kento a tale tabella. 
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3.2.5 Spostamenti (traslazioni) e coordinate omogenee 

Spesso abbiamo desiderato effettuare una rotazione attorno ad un punto a piacere 
(finora era possibile per noi effettuare rotazioni solo attorno ail’origine delle coordina¬ 
te). Una rotazione di questo genere potrebbe venire realizzata spostando l’origine del¬ 
le coordinate al punto che desideriamo utilizzare come centro di rotazione. Dopo la 
rotazione, sarà tuttavia necessario un riposizionamento al valore originale. Sarebbe inoltre 
desiderabile possedere una matrice per uno spostamento di questo genere, cioè la 
cosidetta traslazione. 



Fig. 3.14 Traslazione (Spostamento) 


Lo spostamento di un punto è molto semplice in sè e per sè: 
x' = x + Tv 

y' = y + T y 

dove T x e T y rappresentano i valori dello spostamento in direzione x e y. Purtroppo 
per queste equazioni non è possibile creare una matrice di trasformazione 2x2. Per 
questo motivo sono state introdotte dai matematici le cosidette coordinate omogenee. 
Al posto delle nostre vecchie matrici 2x2, in futuro effettueremo calcoli solo con matrici 
di trasformazione 3x3. 

Per quanto corncerne le coordinate omogenee, in esse le coordinate di un punto 
non vengono più indicate con due valori, come era usuale finora. Ne utilizzeremo inve¬ 
ce tre. La nostra matrice di punti sarebbe quindi: 

p = (x*n y*n n) 

Il valore n è per così dire una coordinata Dummy, cioè una coordinata che non esi¬ 
ste nella realtà e che viene introdotta solo per motivi di calcolo. Vedremo in seguito 
come questa coordinata addizionale venga eliminata automaticamente, non appena 
verrà eseguita una trasformazione. L’introduzione di coordinate omogenee è molto im¬ 
portante, non solo per questo problema. Anche nel capitolo seguente ritorneremo spesso 
su questo argomento. 
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Importante: E’ possibile ottenere le coordinate esatte x ed y tramite una divisione 
delle prime due coordinate omogenee per un valore terzo n. 


Allo stesso modo sarà possibile ampliare le nostre matrici di trasformazione 2x2. Quindi 
anche la matrice di scala 

SP..SJ- (o’sj 

diventerà, per coordinate omogenee 

( S x 0 0 \ 

0 S y 0 ) 

0 0 1 / 

Normalmente imposteremo sempre n = 1. Ciò semplifica molto il calcolo. Solo in se¬ 
guito, al momento della cosidetta proiezione in prospettiva (capitolo relativo alla tridi- 
mensione) ritorneremo su questo argomento. Una trasformazione di un punto potrà 
di conseguenza venire eseguita come segue: 

P’ = P(x.y) * S(S x ,S y ) 

/S x 0 0\ 

= (x*n y‘n n) ' ( 0 S y 0 ) = (S x *x*n S v *y* n n) 

V 0 0 1 / 

Tramite la divisione per n otterremo le coordinate normali: 

P- = (S x *x S/y) 

Ciò è esattamente il risultato che conoscevamo già. Dal momento che n = 1, questo 
calcolo sarà spesso molto più semplice di quanto non appaia qui. 

Possiamo trasformare allo stesso modo tutte le altre matrici di trasformazione (matrici 
omogenee), ampliandole semplicemente con “quattro 0 ed un 1". 

/cos(w) sin(w) 0 \ 

= (w) = / -sin(w) cos(w) 0 I 

1 o 0 1 / 

li risultato resta comunque lo stesso che conoscevamo già. 

A questo punto ci interesserà conoscere come deve essere una matrice di trasfor- 
~azione per una traslazione. Eccola: 
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In essa T x e T v (come sopra) sono i valori di spostamento in direzione x ed y. Molti¬ 
plichiamo ora un punto concreto (es: P(5.9)) con una matrice di traslazione completa 
Vedrete che funziona! A questo punto abbiamo posto le basi per molte elaborazioni 
grafiche, che passiamo ad esaminare immediatamente nel paragrafo seguente. 


3.2.6 Rotazione attorno ad un punto a piacere 

La soluzione di questo problema dovrebbe esserci già nota (l’abbiamo delineata bre¬ 
vemente poco fa). Al fine di far ruotare un oggetto, o meglio un punto, attorno ad un 
punto a piacere su di un piano, sono necessarie tre trasformazioni singole: dapprima 
uno spostamento dell'origine delle coordinate fino al punto che abbiamo sceto come 
centro di rotazione (in altre parole: uno spostamento dell immagine con il centro di ro 
tazione al punto 0); quindi una rotazione attorno all'origine delle coordinate (e con ciò 
attorno a tale centro di rotazione); ed infine un riposizionamento dell’immagine alla po¬ 
sizione originale. 



Quindi si tratta di una traslazione, di una rotazione e di una ulteriore traslazione finale. 
P- = [(P*T 1 )*R]*T 2 = P*(TVR*T2) 
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razzando che il centro della rotazione debba essere: Z(x z , yj, la matrice di trasla- 
zc~e che sposta Z al punto di origine, sarà: 



_a matrice di rotazione, come è noto, sarà: 

( cos(w) sin(w) 0 \ 

-sin(w) cos(w) 0 I 

0 0 1 / 


e la matrice che riposiziona il centro di rotazione, sarà: 

l^ 0 0\ 

TjC-x^-yJ =/ .0 1 0 ) 

\ * z y z i / 

A questo punto dovremo solo determinare il prodotto T-,*R*T 2 di queste tre matrici, 
ed otterremo: 


= (w,x z ,y z ) = TiK.-yJ * R(w) * T 2 (x z ,y z ) = 


( 


cos(w) 

-sin(w) 

x z * cos(w) + y z * si n(w) + x z 


sin(w) 

cos(w) 

-x z * si n(w)-y z * cos(w) + y z 



La notazione sotto forma di parametri di una rotazione di un punto P(x,y) sarà quindi 
a seguente: 


* = x*cos(w) - y*sin(w) - x z *cos(w) + y z *sin(w) + x z 
. = x*sin(w) + y*cos(w) - x z *sin(w) - y z *cos(w) + y z 


La matrice di rotazione R'(w)' per le rotazioni attorno a punti a piacere, risulterà forse 
jn po’ complicata, ma dimostrerà sicuramente e in maniera convincente che non è 
stata assolutamente una cattiva idea quella di introdurre il calcolo matriciale. In tal mo- 
30 siamo quindi in grado di riassumere qualunque combinazione di trasformazioni a 
macere in una sola matrice, e di programmare tutto ciò in maniera compatta ed effi¬ 
ciente in un programma. Con le matrici di trasformazione, a dire il vero, è possibile 
^assumere tutto ciò che si può voler fare con un punto, quindi anche una rotazione 
a spirale oppure il suo posizionamento su di un’altra funzione, come vedremo meglio 
n seguito al termine di questa. Per quanto riguarda la notazione in formato matriciale, 
"orse c’è qualcosa che salta agli occhi nella matrice R’ di cui sopra. Essa può anche 
.enire sostituita da una rotazione con traslazione finale (quindi senza traslazione inizia¬ 
ci La matrice di traslazione conterrebbe quindi i valori della terza riga di R’. Per una 
migliore comprensione e naturalmente per verificarne il funzionamento, applichiamo 
ouanto appena appreso in un piccolo programma: 
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’ •*:**************:♦:************ 

' ** ** 

' #* Rotazione attorno ad *'■* 

’** un punto a scelta ** 

’ ** ** 

’xxxxxxxxxxxt**************** 

’Coordinate dell' oggetto della rotazione: 

’(Rettangolo) 
xr(0) => 100 : yr CO) = 100 

xr<l> = 100 : yr C1 ) = 120 

xr(2) = 160 : yr(2) = 120 

xr<3) = 160 : yr<3) * 100 

’ Costante Pi: 
pi = 3.141593 

? Coordinate iniziali del centro di rotazione: 
xz =130 
yz = 110 


’ Angolo di rotazione: 
w = p 1 / 20 

’ Loop principale: 

UHILE INKEY®="“ 

IF M0USEC0)=1 THEN 
xz = MOUSE(3) 
yz = MOUSE(4) 

END IF 


'Attende la pressione di un tasto 

'Tasto mouse premuto ? 

'si -> Coordinate del mouse 
'come nuovo centro di rotazione 


di 4 coordinate angolari: 


'Trasformazione 
F0R i=0 T0 3 

x = xr (i ) : y = yr (i ) 

CALL rot 2. trans fori» <w, xz, yz) 
xr(i) = xr : yr(i) = yr 
NEXT i 


CLS 'Cancella schermo 

PSET Cxz,yz),l 'Tracciatura centro di rotazione 

LINE <xr(0),yr <0))-(xr(1),yr<1)),3 

LINE -<xr (2) ,yr(2)),3 'Tracciatura rettangolo 

LINE -(xr(3),yr(3)),3 
LINE -(.xr (0) ,yr (0) ) ,3 
WEMD 
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' Trasformazione (Rotazione attorno ad un punto a piac 
' w - Angolo di rotazione 

’ xz - Coordinata x del centro di rotazione 
' yz - Coordinata y del centro di rotazione 

SUB rot2.transformCw,xz,yz) STATIC 
SHARED x,y,xr,yr 

si = SIN(w) 'Calcolo costanti 

co = COS(w) 

xr = x*co-y*si-xz*co+yz*si+xz 
yr « x*si+y*co-xz*si-yz#co-*-yz 
END SUB 


Non appena avremo lanciato questo piccolo programma, un rettangolo comincerà 
a ruotare. Nella finestra di output un piccolo punto indica il centro di rotazione. Pren¬ 
diamo quindi il mouse, posizioniamo il puntatore su di un punto a piacere aH’interno 
della finestra e azioniamo il pulsante sinistro. Il centro di rotazione cambierà immedia¬ 
tamente, diventando il punto sul quale abbiamo clickato. Se si vuole abbandonare il 
programma, sarà sufficiente una singola pressione di un tasto qualunque. 

Per quanto concerne le funzioni, vediamo che all’inizio della routine, i quattro vertici 
del rettangolo da ruotare vengono definiti in due matrici (xr() e yr()), mentre il centro 
di rotazione viene definito in x 2 ed y z e l’angolo di rotazione viene definito in w. Dopo 
tali righe troviamo il loop principale, che verrà abbandonato non appena si preme un 
tasto a piacere. La funzione MOUSE(O) segnala un evento del mouse (ved. manuale 
del Basic), che verrà utilizzato per inserire nuove coordinate per il centro di rotazione. 


La trasformazione vera e propria dei quattro vertici ha luogo in un piccolo loop 
FOR...NEXT il quale a sua volta chiama il sottoprogramma rot2.transform() per la mol¬ 
tiplicazione delle matrici. Le costanti si e co contengono i valori di seno e coseno di 
w. In verità, anche tali valori avrebbero dovuto venire definiti all’inizio del programma 
(risparmiando anche tempo di calcolo) dal momento che l’angolo non viene mai modi¬ 
ficato. Abbiamo evitato di fare ciò per rendere maggiormente comprensibile il program¬ 
ma stesso. 

Una volta determinati i quattro punti ruotati, il programma cancella il contenuto della 
finestra di output ed inizia il lavoro di tracciatura. 


3.2.7 Una piccola leccornia: deformazione di aree video 

Per la comprensione delle operazioni bi e tridimensionali, il seguente capitolo non 
è assolutamente necessario (i lettori che vanno di fretta potrebbero anche saltarlo), ma 
ci permette di familiarizzare con un aspetto secondario anch’esso interessante. 
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Si tratta di qualcosa che forse abbiamo già visto: un programma proietta un intero 
blocco grafico lungo una curva sinusoidale deformandolo. Vediamo subito se si tratta 
di un procedimento semplice oppure no. Anche in questo caso abbiamo a che fare 
di nuovo con operazioni, rappresentabili sotto forma di matrici. 


Di solito si calcolano i valori di una normale funzione (esempio la funzione seno) e 
li si somma alle coordinate x ed y di ogni singolo punto di un blocco grafico (quasi 
sempre rettangolare). Sotto forma di parametri, è possibile realizzare ciò nella maniera 
seguente: 

x' = x + f(y) 

y' = y + g(x) 

e sotto forma di matrici: 

/ 1 0 °\ 

P' = P * I 0 1 0 ) 

\ f(y) g(x) o / 

Invece di f(y) e g(x) avremmo potuto scrivere senza problemi f(x) e g(y). Vediamo 
ora un semplice esempio: la proiezione di un blocco grafico lungo una curva sinusoidale. 

A questo punto ci scontriamo con un altro problema: ipotizziamo che il blocco grafi¬ 
co rettangolare che vogliamo proiettare si trovi già su un punto qualunque dello scher¬ 
mo (o in memoria). Se lo vogliamo deformare, dobbiamo controllare ogni singolo punto 
di questo blocco per poi trasformarlo (deformarlo) secondo quanto desideriamo. Per 
fare ciò useremo in Basic il comando POINT, che ci fornisce il colore di un punto sullo 
schermo. Il seguente programma chiarirà meglio questo aspetto: 


t************* ************ 

• ** ** 

' ** Trasformazione di ** 

•** Blocchi schermo ** 

•** *♦ 

• ************************* 

pi = 3.141593 

'Definizione del campo da trasformare: 

'Definizione di un nuovo motivo di riempimento: 

DIM musterJÉ (7) 

musterX<0) = &H0 

muster5C(l) - &H7444 

muster!<(2) = &H4444 

musterX(3) = &H6444 

musterX(4) = &H4444 

rnusterX<5) = &H7774 

PATTERN &HFFFF, rnuster >£ 








-INE (0,0)-(300,40),3,BF 
=PINT : PRINT 

PSINT TAB(4) "Coda di 


macchine" 


'Indicazione dimensioni del blocco video da trasformare: 
'«■ - 0 'Coordinata x in alto a sinistra 

,<>V. * 0 'Coordinata y in alto a sinistra 

brX - 300 "Larghezza 

hoX = 40 'Altezza 

Posizione del blocco di destinazione: 
xz « 10 
yz ■ 100 

Funzione della curva di trasformazione g(x>: 

C€F FNg(x) * ampi*SIN<anzs*x/(br%/(2*pi))> 

Ampiezza della curva di trasformazione: 
ampi = 20 

■Numero dei periodi di oscillazione per blocco: 
anzs = 1 


■Routine di disegno: 

FOR x0=xqX TO brX-l 
FOR yCi = yqX TO hoX-1 
C/i = POINT (xO, yO) 

IF cJC<0 THEN 
COLOR 1 
PRINT "Errore!" 

PRINT "Il campo sorgente non si trova" 
PRINT "completamente entro la finestra!!!" 
GOTO schluss 
END IF 
COLOR cX 
X = xO-xqJi 
y * y0-yqZ 
y = FNg(x)+y 
PSET <xz+x,yz+y> 

NEXT yO 

NEXT. xO 

schluss: 

COLOR 1 


'Elaborazione 
'punto per punto 

'Determinazione del colore del punto sorgente 
'se uguale a -1 -> e’ esterno alla finestra 


‘Regolazione del colore 

"Calcolo delle coordinate relative sorgenti 

’e esecuzione della Trasformazione 
'Posizionamento del punto di destinazione 
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’Ri-norma1izzazione del motivo: 

DIM mu'/. ( 1 ) 

mu%<0> = &HFFFF 

muX ( 1 ) = ?<HFFFF 

PATTERN ,rnu>: 


Eld [tu Oli uu (LU Cil QU [LU ai‘Uu LIU lai Li: UU LU Oli au [Lil ui 
aufujaiiaufiiiiiiiaiiraiiuifluauiiuaiiaurLUiuiauriufii 
auiiC oda di nacchin efuiai 
au iu iui au loiiw ai idi ai a- aL idi dii ai idi oli uu lai ai 
ai tu oh au laian ai itiiaii uiau loian un idi an ai ini ai 



Fig. 3.16 Deformazione di porzioni di schermo 


Dapprima viene costituito il campo sorgente da deformare. Un bordo predefinito ed 
un po’ di testo renderanno più chiaro l’effetto. Vengono poi dichiarate le dimensioni 
del blocco da deformare e la posizione del blocco deformato che rimarranno costanti. 
Quindi viene definita la funzione di trasformazione. 


Come abbiamo visto, sono state utilizzate per f(y) e g(x) le seguenti funzioni: 

f(y) = 0 

g(x) - ampi • sin(x • bf ^. S p|) ) 


dove: 

ampi = ampiezza della curva sinusoidale 
anzs = numero delle oscillazioni in un blocco grafico 
br = larghezza in punti del blocco grafico 

x = coordinata x relativa (relativa allo 0 del blocco) 
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Alla coordinata x di ogni singolo punto scandito da POINT non viene aggiunto nulla, 
a coordinata y, invece, il programma aggiunge il valore della funzione di una curva 
sinusoidale. Il risultato sarà visibile sul vostro schermo. L’espressione 


anzs 

br/(2*pi) 

rappresenta il fattore di espansione della curva sinusoidale. Il suo valore determina 
anche quanto deve essere lungo un periodo di oscillazione. Esso viene determinato 
n modo che l’utente possa indicare per quante oscillazioni il blocco grafico da defor¬ 
mare deve venire "modulato”, br inoltre indica la larghezza di questo punto (quanti 
conti sono contenuti nel periodo). 


Naturalmente, come sempre, è possibile modificare a piacere la funzione. Di solito 
non è molto difficile, come dimostrato dall’esempio seguente (è possibile anche preve¬ 
dere delle lunghezze di oscillazione e delle ampiezze fisse). Proviamo a sostituire co¬ 
me esempio le seguenti righe prima di PSET: 


x — 

xO-xqV. 

'calcolo coord 

inate relative 

y = 

yO-yqV. 



y = 

FNg(x)+y 

'ed esecuzione 

della trasformazione 

con 

quanto segue: 



it = 

: xO-xq'/. 

'calcolo coord 

inate relative 

yt = 

yO-yqV. 



aspi 

= IO 

'Ampiezza per 

la coordinata x 

rr 7. 

= 40 

'Altezza del b 

1 oc c o 

x = 

FNq (yt)+xt 

’Deformazione 

anche per coordinate 

3»P 1 

=20 

'Ampiezza per 

la coordinata y 

tsr7. 

= 300 

'Larghezza del 

blocco 

y = 

FNg(xt)+yt 

'ed esecuzione 

della trasformazione 


In questo caso vengono trasformate anche le coordinate x. Proviamo ad osservare 
risultato: assume una dimensione quasi spaziale. 


E' possibile provare anche con altre funzioni, ecco un paio di consigli: 


L'equazione di un semi ellisse (vedi inizio del capitolo) trasformata sulla coordinata 
. suscita l'impressione che il blocco grafico sia avvolto attorno a se stesso. In seguito 
estremo proiettare in prospettiva e ruotare nello spazio un blocco; o avvolgerlo addirit- 
*^a su di una sfera od un cubo, come la carta decorata sui regali di Natale. 
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3.3 Clipping bidimensionale, cioè: finestre sulla grafica 


Il lettore si sarà già chiesto come determinare le zone visibili di un cerchio, di una 
retta o di un rettangolo all’interno di una determinata finestra. Questo problema è noto 
come CLIPPING. 


Normalmente non avremo molto a che fare con il Clipping. Quando lavoreremo con 
finestre (o Layers) il sistema operativo si occuperà di tutto. Ciononostante, in alcune 
applicazioni, siamo costretti ad occuparci noi di tale aspetto. Vediamo quindi le solu¬ 
zioni per i punti e per le linee: 


3.3.1 Clipping di punti 

Per quanto riguarda un punto, la questione centrale è quella di sapere se esso può 
venire tracciato oppure no. La risposta non può essere altro che un sì oppure un no. 
Un punto non può venire suddiviso come una linea o un cerchio. Come fare quindi 
per verificare se un punto si trova aH'interno o all’esterno di una finestra? 


Per semplificare, attribuiamo i seguenti nomi alle coordinate di delimitazione di una 
finestra: 


x min coordinata x angolo superiore sinistro 
y min coordinata y angolo superiore sinistro 
x max coordinata x angolo inferiore destro 
y max coordinata y angolo inferiore destro 



Fig. 3.17 Clipping di un punto 
























Un punto singolo avente le coordinate x ed y si troverà quindi all'interno di una fine- 
sra se tutte e quattro le seguenti uguaglianze sono vere: 




Se anche una sola di queste quattro uguaglianze è falsa, il punto si troverà all'ester- 
-o della finestra e di conseguenza non sarà visibile. Naturalmente è possibile eseguire 
svesto test per ogni punto di una figura ecc, ma non sarebbe molto efficiente. 


3.3.2 Clipping di linee 

Sono stati sviluppati dei procedimenti di calcolo molto veloci, al fine di effettuare il 
; oping di linee. L’algoritmo che svolge questa funzione ha assunto il nome dei suoi 
-• uppatori, Cohen e Sutherland, e viene presentato brevemente in questa sede. 


y 



ymax 


/min 


xmax x 


xmin 


3.18 Clipping dì linee 

-algoritmo: 

Esistono in linea di massima tre diverse categorie di linee (con il punto di partenza 
« y! e con il punto di arrivo x 2 , y 2 ), che possono venire elaborate: 

Categoria 1: 

Questa categoria comprende le linee che sono completamente visibili, cioè quelle 
i cui punti di partenza e di termine si trovano all'interno della finestra. Per ambedue 
sunti x,, yì e x 2 , y 2 valgono quindi le formule di cui sopra relative alla visibilità di un 
runto. E’ ovvio che tali linee possono venire tracciate immediatamente. 
















Categoria 2: 

Si tratta di linee che sono assolutamente invisibili in ogni caso. Ciò accade quando 
anche una sola delle seguenti espressioni è vera: 


a) x, > x max 

b) x n < x m j n 

C) Yi > ymax 

d) y, < y m ,n 


e Xg > x max 

e X 2 < X m ( n 

e y 2 > ymax 

e y 2 < ym,n 


Non essendo visibili, tali linee non necessitano quindi di venire tracciate. 


Categoria 3: 

Questa categoria comprende le linee che non adempiono alle condizioni di cui so¬ 
pra. Si tratta infatti di linee completamente invisibili oppure visibili solo parzialmente. 
E’ questa categora di linee che ci creerà in seguito maggior confusione. 


Nell'algoritmo di Cohen-Sutherland viene determinato a quale categoria una linea 
appartiene. A questo scopo, il campo nel quale possono trovarsi i punti terminali delle 
linee viene suddiviso in nove sezioni (vedi schizzo): 


1001 

1000 

10 10 

0 001 

_ 

0 0 0 0 

0 0 10 

0 101 

0100 

Olio 


Fig. 3.19 I nove settori dell'algoritmo di Cohen-Sutherland 


Per ogni punto finale della linea viene utilizzata una memoria di 4 bit. I singoli bit 
per un punto vengono quindi impostati secondo il seguente schema (Bit = 1 ) oppure 
azzerati (Bit = 0): 


Bit 3 

= 

1 

y*ymax 

è 

0 

(Il punto si trova al di sopra della finestra) 


= 

0 

y-ymax 

< 

0 

(Il punto non si trova al di sopra della finestra) 

Bit 2 

= 

1 

ymìn'y 


0 

(Il punto si trova sotto alla finestra) 


= 

0 

ymin _ y 

< 

0 

(Il punto non si trova sotto alla finestra) 

Bit 1 

= 

1 

X'Xmax 


0 

(Il punto si trova a destra della finestra) 


= 

0 

X'^max 

< 

0 

(Il punto non si trova a destra della finestra) 

Bit 0 

= 

1 

XmirfX 

> 

0 

(Il punto si trova a sinistra della finestra) 


= 

0 

Xmin'X 

< 

0 

(Il punto non si trova a sinistra della finestra) 
















n questo caso il Bit 0 è il bit più a destra di tutti nella cella di memoria. Nel caso 
r per un punto, dopo questi quattro test, risulti un valore 0 per tutti e quattro i bit, 
i Djnto si troverà all’interno della finestra. 


- questo punto è interessante vedere come riuscire a determinare l’appartenenza 
oe e linee ad ogni categoria. Dovremo semplicemente collegare con una operazione 
ceca di AND i valori dei quattro bit così ottenuti per gli estremi di una linea, per arriva- 
*2 a seguenti risultati: 


Categoria 1: 

Nel caso in cui ambedue i valori siano uguali a 0 (l’operazione logica di OR è 0), 
a nea apparterrà alla categoria 1, cioè sarà completamente visibile. 


Categoria 2: 

Nel caso in cui l’operazione logica di AND di ambedue i valori fornisca un valore 
r .erso da 0, la linea apparterrà alla categoria 2, cioè non sarà visibile. 


Categoria 3: 

Se il risultato dell'operazione logica di AND è uguale a 0, è probabile che la linea 
debba venire clippata. 


I casi 1 e 2 non presentano alcun problema: la linea verrà tracciata (caso 1) oppure 
"on verrà tracciata (caso 2). La categora 3, al contrario, è un po’ più complicata. E'ne- 
cessario approfondire meglio questo tipo di linee. A questo scopo l'algoritmo suddivi¬ 
de ciascuna lìnea in porzioni sempre più piccole. Questa suddivisione continua fino 
a quando ciascuna delle molte porzioni di questa linea potrà venire attribuita chiara¬ 
mente a una delle due categorie precedenti. A questo scopo esistono tra l’altro le due 
•.ecniche seguenti: 


Tecnica 1: 

Si tratta della tecnica che probabilmente, a prima vista, ci piacerà di più. E’ sufficien¬ 
te calcolare i punti di intersezione della linea da tagliare con i lati della finestra. Ciò 
naturalmente può richiedere molto tempo. Tuttavia, in caso dì finestre rettangolari, nel- 
e quali i quattro lati si trovino paralleli o perpendicolari agli assi delle coordinate, i test 
divengono ancora più semplici: è sufficiente utilizzare i codici dei 4 bit di ambedue i 
punti finali delle linee di cui sopra. Secondo i seguenti criteri è quindi possibile determi¬ 
nare con quali lati della finestra è necessario tagliare la linea (per una linea è possibile 
che si presenti un massimo di 4 casi contemporaneamente): 


Caso 1 : bit 3 = 1 
Caso 2: bit 2=1 
Caso 3: bit 1 = 1 
Caso 4: bit 0=1 


Punto di intersezione con la linea y = ymax 
Punto di intersezione con la linea y = y rtlin 
Punto di intersezione con la linea x = x max 
Punto di intersezione con la linea x = x min 








Dopo che si è determinato con quali lati si deve tagliare la linea, addentriamoci nelle 
formule secondo le quali è possibile determinare i punti di intersezione esatti (cioè i 
nuovi punti finali della linea). Il punto di partenza per fare ciò è l'equazione delle rette 
passanti per punti contenuta nell’appendice. 


Caso 1 e 2: 

Conosciamo già la coordinata y del punto di intersezione, cioè y max (Caso 1) oppu¬ 
re y m in (caso 2). Ciò che resta da determinare è la coordinata x, ancora sconosciuta: 


x = Xg 'Al * (y - y2 ) + x 2 

y2 - yi 


Casi 3 e 4: 

In questo caso ci troviamo di fronte a rapporti invertiti. La coordinata x del punto 
di intersezione è nota (x max per caso 3 e x min per caso 4). Stiamo invece cercando la 
coordinata y: 

y = y z ' yi ■ * (x - x 2 ) + y 2 
x 2 - x. 

Per ambedue le formule vale: 

x coordinata x del punto di intersezione 

y coordinata y del punto di intersezione 

Xì coordinata x del punto di partenza della linea 

yi coordinata y del punto di partenza della linea 

x 2 coordinata x del punto finale della linea 

y 2 coordinata y del punto finale della linea 
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Per ogni linea dovremo quindi calcolare da un minimo di 1 ad un massimo di 4 punti 
di intersezione, i quali suddividono la linea in porzioni che vanno da 2 a 5, delle quali 
però solo una può essere visibile. Tramite il calcolo dei 4 bit sarà possibile determinare 
di quale porzione di linea si tratta. I punti finali delle linee accorciate sono noti, quindi 
non perdiamo altro tempo e facciamo apparire sullo schermo la porzione determinata. 


Tecnica 2: 

Il procedimento di calcolo precedentemente descritto è perfettamente adeguato per 
dei rapporti normali. Tuttavia in Assembler e per alcuni problemi, che necessitano di 
venire elaborati molto velocemente, tale formula non è sufficiente. Al fine di poter de¬ 
terminare la porzione giusta della linea oppure i suoi punti finali, sono necessarie divi¬ 
sioni e moltiplicazioni decimali. Dal momento che ciò potrà sembrare piuttosto antipatico 
a molti lettori, indirizziamoci verso un metodo nel quale è possibile utilizzare senza ec¬ 
cezioni l’aritmentica intera. Anzi: saranno sufficienti addizioni intere, sottrazioni intere 
e istruzioni di shift (divisione per 2, 4 ecc). 

L’algoritmo viene svolto in maniera ricorsiva. Suddividiamo dapprima la linea in due 
porzioni uguali. Il punto intermedio PM (x m , y m ) di una linea può venire determinato 
tramite le seguenti formule, che sono facili da calcolare tramite semplici operazioni intere: 




X 1 + X 2 
2 


Ym ~ 


yi + V2 

2 


A questo punto abbiamo due linee, per le quali effettueremo di nuovo la suddivisio¬ 
ne in categorie (vedi sopra). Quelle porzioni di linea che rientrano nella categoria 3 ver¬ 
ranno di nuovo dimezzate ecc. Ciò verrà ripetuto fino a quando ciascuna piccolissima 
porzione di linea potrà venire attribuita univocamente ad una delle prime due catego¬ 
rie. A questo punto sapremo quali linee potremo tracciare e quali no. Il presente algo¬ 
ritmo è particolarmente indicato per il liguaggio C, il quale supporta completamente 
le ricorsività. Tuttavia, anche in assembler 68000, con i comandi LINK e UNLINK sono 
possibili le variabili locali e di conseguenza la recursione. 






>/ x 7 

/ " 6 



4 

3 


Algoritmo 

della parte centrale per il Clipping di linee 


Fig. 3.21 Suddivisione ricorsiva di una linea 
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Osserviamo brevemente il numero di passaggi necessari alla determinazione del punto 
di intersezione. Il numero di passaggi dipende naturalmente dalla lunghezza della li¬ 
nea. Esso potrà venire determinato tramite la seguente formula: 


2^ = n 

< = > d = log 2 (n) 

dove: 


d 

n 

log 2 (n) = 

numero delle suddivisioni 
numero dei punti della linea 
logaritmo di 2 di n 


Esempio: se una linea possiede 256 punti, sarà possibile determinare i punti di taglio 
in un massimo di log 2 (256) = 8 passaggi. In caso di linee con 512 punti, sono neces¬ 
sari un massimo di 9 passaggi e per 1024 punti i passaggi necessari sono 10. Si tratta 
quindi di valori assolutamente accettabili. 
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CAPITOLO 4 


Ingresso nel mondo Tridimensionale 




Avendo posto le basi nei capitoli precedenti, possiamo finalmente addentrarci nello 
spazio. Disponiamo infatti delle premesse essenziali per poter comprendere il mondo 
tridimensionale: molto di ciò che seguirà non ci apparirà quindi completamente nuovo. 
Al contrario, troveremo numerosi riferimenti alla rappresentazione bidimensionale di 
immagini. In caso di difficoltà di comprensione sarà sufficiente tornare indietro di qual¬ 
che pagina e andare a verificare come funzionava in due dimensioni. 

Prima della lettura del capitolo è necessario avere preso dimestichezza con gli ele¬ 
menti di base bidimensionali, dal momento che da questo punto in poi se ne ipotizza 
una conoscenza approfondita. 

4.1 Tutto è relativo: sistemi di coordinate 


Al fine di descrivere il nostro mondo, cioè il nostro mondo immaginario che vogliamo 
rappresentare su monitor, stampante o Plotter, abbiamo bisogno di un sistema di coor¬ 
dinate spaziale. In questo sistema di coordinate ogni punto, ogni angolo ecc. ha una 
posizione esattamente specificata. Di conseguenza, ogni oggetto può venire indicato 
con la propria posizione e dimensione. Il suo colore o altre caratteristiche importanti 
per la sua rappresentazione vengono per il momento tralasciate. 

In un sistema di coordinate bidimensionale, che abbiamo visto finora, cioè in grado 
di identificare solo tutti i punti su di un piano, utilizzavamo, per l’identificazione di un 
punto, solo due valori, cioè le cosidette coordinate. Come sappiamo tali valori rappre¬ 
sentano la componente x ed y della posizione, rispetto agli assi delle coordinate per¬ 
pendicolari tra loro. 

Nel sistema di coordinate tridimensionale si aggiunge un terzo asse, l'asse z, il quale 
è anch'esso perpendicolare agli altri due assi di coordinate, quindi è come se entrasse 
nel piano. 
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Fig. 4.1 Sistema di coordinate bidimensionali 
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Da questo punto di vista esistono due possibilità: che l'asse z fuoriesca dal piano 
(sistema destrorso) oppure penetri in esso (sistema sinistro). 



Quindi le coordinate z dei due sistemi di coordinate si differenziano l’una dall’altra 
solo nel segno che le precede. In qusto libro lavoreremo quasi esclusivamente con 
il sistema sinistrorso, cosa ormai usuale nella grafica per computer e anche in ampie 
parti della matematica. Non è affatto un problema trasferire tutti i calcoli, le matrici e 
le coordinate in un sistema destrorso (come abbiamo già visto, le coordinate x ed y 
non cambiano, solo la coordinata z cambierà di segno). 



i 


Fig. 4.3 Individuazione determinazione di un punto in un sistema di coordinate tridimensionale 
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Se vogliamo indicare un punto in un sistema di coordinate spaziale, abbiamo biso¬ 
gno in totale di tre diversi valori: le coordinate x, y e z (tali coordinate forniscono la 
distanza del punto dall'origine delle coordinate in direzione x, y e z). Quindi indichere¬ 
mo un punto tridimensionale come segue: P(x,y,z). Ricordiamo che l’indicazione di un 
punto in un sistema bidimensionale era: P(x,y). 


Con un sistema di coordinate tridimensionale sarà naturalmente possibile descrivere 
tutto il nostro mondo per quanto concerne la posizione degli elementi che lo compon¬ 
gono. Nella grafica per computer, oltre a tale sistema spaziale di coordinate, dotato 
di una origine (punto 0) in un punto a piacere, avremo bisogno di un ulteriore sistema 
di coordinate per la rappresentazione di oggetti spaziali: le coordinate dello schermo 
o dell'Immagine. Già dal nome di tali coordinate è possibile comprendere che si tratta 
di coordinate bidimensionali, che si riferiscono semplicemente allo schermo del nostro 
elaboratore. Il punto 0 si troverà di conseguenza in alto o in basso, ma sempre a sinistra. 



Fig. 4.4 Rapporti Ira mondo, vista e rappresentazione 
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I Le coordinate tridimensionali del sistema spaziale devono venire trasformate prima 
o poi nelle coordinate bidimensionali dello schermo. Le operazioni matematiche ne¬ 
cessarie ad effettuare ciò verranno affrontate in questo capitolo più in seguito. Natural¬ 
mente anche in questo caso, un ruolo importante è rivestito dalle trasformazioni quali 
la traslazione, il cambiamento di scala e la rotazione. 


Costruiamo quindi il nostro mondo in un sistema tridimensionale e trasformiamolo 
nel mondo bidimensionale del nostro schermo. 


In molti programmi di computer si utilizza ancora il cosidetto sistema di coordinate 
View. Tale sistema di coordinate, anch'esso tridimensionale, si differenzia dal sistema 
spaziale normale solo nella posizione del punto 0. Mentre la posizione del punto 0 nel 
sistema spaziale può trovarsi in un punto qualunque, cioè gli assi delle coordinate pos¬ 
sono venire orientati a piacere, il punto 0 del sistema View viene posizionato esatta¬ 
mente dove si trova l’osservatore in quel momento (posizione View). Spesso in questo 
caso, anche se non sempre, l’asse z si trova nella direzione dello sguardo, mentre gli 
assi x ed y si trovano verticalmente e orizzontalmente ad esso. Con ciò l’utilizzatore 
si troverà in possesso di un punto di riferimento ben chiaro, cioè se stesso. Contempo¬ 
raneamente sarà altrettanto chiaro quali parti dello spazio egli stia osservando. I punti 
con coordinate z negativi saranno quindi invisibili. 


4.2 Struttura dei dati di un mondo spaziale 


Stiamo per addentrarci nella costruzione, per il momento ancora grossolana, di un 
mondo tridimensionale, come quello che viene realizzato dai normali programmi per 
CAD. Cerchiamo tuttavia di non spaventarci: per le nostre applicazioni "private" non 
sarà necessario utilizzare tale struttura completamente. La struttura che stiamo per de¬ 
scrivere è quasi del tipo ideale. Esistono naturalmente moltissime alternative e varianti, 
di cui non possiamo occuparci in questo momento, e che parzialmente dipendono an¬ 
che dalla "fantasia creativa" del singolo programmatore. E' tuttavia necessario tenere 
presente alcuni standard della memorizzazione dei dati, che sono descritti in varie do¬ 
cumentazioni specializzate. 


Ora sappiamo come definire i singoli punti di un mondo spaziale. Come fare per co¬ 
struire un'intera scena? Certo potremmo indicare semplicemente ciascun punto dopo 
l'altro, ma sarebbe un enorme spreco di tempo. Abbiamo già visto che è possibile con¬ 
giungere due punti con una linea, e che per fare ciò non è necessario indicare ogni 
singolo punto di tale linea. E’ sufficiente indicare e memorizzare i due punti terminali, 
che devono venire collegati da una linea. Con molte linee otterremo un’immagine com¬ 
pleta. Al fine di poter rappresentare anche i contorni, incorporiamo anche altri elementi 
di contorno, quali il cerchio, l’ellisse, la curva ecc. Naturalmente per questi elementi 
due punti non sono più sufficienti. Per quanto riguarda il cerchio, per esempio, è ne¬ 
cessario indicare il centro ed un raggio, per l'ellisse sono necessari il centro e due rag¬ 
gi, per gli archi saranno necessari gli angoli di partenza e dì fine ecc. 
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Nei sistemi spaziali tutto ciò non è più sufficiente. I programmi tridimensionali riduco¬ 
no molti di tali elementi di contorno a superfici intere. Una superfice può quindi venire 
limitata da più linee o combinazioni di linee e archi ecc. 

Quindi, esattamente come un punto può far parte di più linee, un elemento di contor¬ 
no può venire utilizzato da più superfici. Molti problemi tridimensionali (quali per esem¬ 
pio l'eliminazione di linee e superfici nascoste, oppure l'ombreggiatura di superfici) 
ipotizzano la disponibilità di tali definizioni di superfici. 

Più superfici insieme formano quindi un cosidetto oggetto (parallelepipedo, sfera, 
cono, piramide ecc). Più oggetti possono venire in seguito raggruppati insieme, fino 
a determinare oggetti più complessi. Con ciò otteniamo un sistema di dati piuttosto com¬ 
plicato, ma particolarmente efficiente, che dovremo tenere presente al momento dei 
calcoli spaziali. Questo sistema orientato agli oggetti ha notevoli vantaggi: infatti è suffi¬ 
ciente sviluppare tali oggetti una volta per tutte. Quindi sarà possibile memorizzarli in 
una biblioteca di oggetti su disco o disco rigido. Tali oggetti pronti potranno in seguito 
venire incorporati dall’utente nell’Immagine che sta creando, ingranditi, ridotti, sposta¬ 
ti, ruotati ecc. Una volta incorporato, un oggetto di questo genere potrà comunque 
venire modificato o addirittura eliminato. Con ciò si garantisce la massima flessibilità. 

I sistemi CAD servono per costruire delle immagini composte dai più diversi oggetti 
di base, quali parallelepipedi, cubi, coni ecc, raggruppati insieme per formare immagi¬ 
ni più complesse. Inoltre gli utilizzatori sono anche in grado di dichiarare tali immagini 
come nuovi oggetti (es. una casa) ed utilizzarli a loro volta per la costruzione di oggetti 
ancora più complessi (es. un’intera città). L'utente di un programma CAD vede quindi 
solo gli oggetti, e non ha più bisogno di occuparsi degli elementi di un oggetto (super¬ 
fici, linee, punti). 

Prendiamo come esempio un piccolo nucleo abitato: tale nucleo abitato è composto 
da oggetti chiaramente identici: le case. Ogni singola casa, come quelle dei giochi per 
bambini, è composta da diversi oggetti di base (tetto, un parallelepipedo come base 
ecc) o da altri oggetti composti. Ciascuno di questi oggetti di base è composto a sua 
volta dalle superfici che lo delimitano, le quali a loro volta vengono definite dai loro 
lati. Nel livello ancora più basso troveremo gli estremi dei lati oppure gli altri parametri 
determinanti, quali per esempio il raggio in caso di cerchi ecc. 

Dal momento che l’utilizzatore sta lavorando con oggetti liberamente spostabili, co¬ 
piabili e duplicabili, sarà opportuno allestire un sistema di coordinate proprio per ogni 
oggetto. A questo scopo è necessario fornire ancora una coordinata, se vogliamo de¬ 
terminare la posizione di questo oggetto nel sistema spaziale, oppure, in caso di sub¬ 
oggetti, nel sistema di oggetti precedente, cioè le coordinate del punto 0 del sistema 
di oggetti. A ciò si aggiungono ancora gli angoli degli assi dei sistemi di oggetti rispetto 
agli assi dei sistemi spaziali (cioè agli assi dei sistemi spaziali dell'oggetto precedente). 

All’interno di questo sistema di coordinate dell'oggetto sono contenuti solo i diversi 
sub-oggetti ed elementi (superfici, punti ecc) di cui è composto l'oggetto (tutto ciò natu¬ 
ralmente rispetto al sistema di oggetti). E’ solo al momento in cui questo nostro mondo 
spaziale deve venire tracciato, che le coordinate interne all’oggetto vengono trasformate 
nelle coordinate del sistema di oggetti successivo e quindi in coordinate spaziali. 
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=g 4 5 Un oggetto (in un sistema di "mondo"] nello spazio con riferimenti relativi ed assoluti 


In tal modo un oggetto resta sempre e comunque accessibile nello spazio (spostabi- 
e. cancellabile ecc). 


dati di uno "spazio" tipico saranno circa i seguenti: 


Dapprima esiste un blocco di dati principali chiamato "spazio". In esso sono conte- 
-ut> semplicemente i nomi (o numeri) degli oggetti principali, di cui tale spazio è com¬ 
posto (quest’ultimo può essere una sola unità, a sua volta composta da diversi oggetti). 

— ciò si aggiungono le coordinate di tali oggetti nel sistema spaziale. Da ogni immissio¬ 
ne deve essere deducibile, dove è possibile trovare i dati che descrivono più precisa¬ 
mente il singolo oggetto (es. un puntatore ad una struttura di dati oggetto): 

Struttura di dati per “spazio”: 

— Struttura di intestazione di "spazio" (es. nome dello spazio, numero degli oggetti, ecc.) 

— Nome del primo oggetto 

— Puntatore alla struttura di dati di tale oggetto 

— Coordinate dell'oggetto 

— Nome del secondo oggetto 

— Puntatore alla struttura di dati di tale oggetto 

— Coordinate dell’oggetto 

— Nome del terzo oggetto 

— ecc. 

Ogni oggetto composto verrà descritto tramite un blocco di dati simile: 
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Struttura di dati per ‘‘oggetto composto”: 

— Struttura di intestazione di "oggetto composto" 
esempio: 

— Nome dell’oggetto 
— Tipo dell'oggetto (composto o di base) 

— Numero dei sub-oggetti 
— Flag per: oggetto visibile? Si/No 
— Matrice di traslazione 
— Matrice di scala 
— Matrice di rotazione 
— ecc. 

— Nome del primo sub-oggetto 

— Puntatore alla struttura dei dati di questo sub-oggetto 

— Coordinate del sub-oggetto 

— Nome del secondo sub-oggetto 

— Puntatore alla struttura dei dati di questo sub-oggetto 

— Coordinate del sub-oggetto 

— Nome del terzo sub-oggetto 

— ecc. 


Gli oggetti di base, al contrario, non saranno più composti da sub-oggetti. Essi sa¬ 
ranno composti invece da singoli superfici: 


Struttura di dati per “oggetto di base”: 

— Struttura di intestazione di "oggetto di base" 
esempio: 

— Nome dell'oggetto 

— Tipo dell'oggetto (composto o oggetto di base) 

— Flag per: oggetto visibile? Si/No 

— Matrice di traslazione 

— Matrice di scala 

— Matrice di rotazione 

— ecc. 

— Puntatore alla struttura di definizione della prima superficie 

— Puntatore alla struttura di definizione della seconda superficie 

— ecc. 


La struttura di intestazione (Header) di un oggetto contiene informazioni che posso¬ 
no essere molto importanti. Dal momento che le coordinate delle diverse parti di un 
oggetto (sub-oggetto, punto, linea, superficie, ecc) dovrebbero essere fisse e non mo¬ 
dificabili (ad eccezione delle modifiche dirette agli oggetti), sarà necessario indicare 
per quali valori l’intero oggetto, compreso il sistema di coordinate successivo oppure 
l’oggetto successivo (esempio: sistema spaziale) dovrà venire spostato, ingrandito o 
ruotato. Ciò accade tramite le matrici di trasformazione che abbiamo già visto. 

Questo sistema ha diversi vantaggi. Il primo è che tutti gli oggetti restano fissi e ne¬ 
cessitano di venire definiti una volta sola, anche se sono presenti più volte nella stessa 
immagine. Ciò fa risparmiare spazio in memoria. Un ulteriore vantaggio è che tutte le 
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coordinate di un oggetto e tutti i suoi sub-oggetti, al momento di una trasformazione 
cell'intero oggetto, non necessitano di venire ricalcolate. E' solo al momento in cui un 
oggetto deve venire rappresentato sul monitor che i punti, che devono venire tracciati, 
terranno trasformati. Ciò semplifica notevolmente la programmazione. 

Spesso è molto più utile indicare le matrici di trasformazione non nella struttura dei- 
oggetto vera e propria, bensì nella struttura dell'oggetto successivo. Ciò comunque 
potrà venire determinato dal programmatore stesso a seconda delle proprie esigenze. 

Abbiamo visto che in ambedue le strutture di oggetto sarà possibile determinare da 
quali superfici l'oggetto di base è composto. Può trattarsi per esempio anche di una 
sola superfice, come per esempio nel caso di una sfera o di un piano semplice. Vedia¬ 
mo quindi di risolvere il problema della struttura di definizione per una superfice a 
piacere: 

Struttura dati "superfice”: 

— Struttura di intestazione di "superfice” 
esempio: tipo della superfice: 

— Piano composto da lati 

— Sfera, ellissoide, per i quali devono venire indicati solo il centro ed i raggi 

— Superfice curva, che deve venire determinata da una funzione o da diversi punti 
di appoggio 

— Ulteriori caratteristiche determinanti a seconda del tipo di superfice 
esempio: 

— Puntatore alla struttura di definizione del primo lato 

— Puntatore alla struttura di definizione del secondo lato 

— ecc. 
oppure: 

— Coordinate del centro 

— Raggio della sfera 

Vediamo quindi che già in questa fase viene effettuata una differenziazione a se¬ 
conda del tipo di superfice. I tipi di superfici principalmente utilizzati sono le supera¬ 
ci piane, rettangolari, composte da quattro lati. Sono tuttavia possibili numerosissimi 
altri tipi di superfice (es: sfera, semisfera, ecc). Anche questi tipi devono venire de¬ 
terminati nella struttura della superfice. Di solito tuttavia ci si limita, come abbiamo 
già visto, alle superfici piane facili da manipolare (tuttavia anche le sfere possono 
venire approssimate da questo tipo di superfici). 

Tali superfici piane sono composte quindi da diversi lati (almeno tre), per i quali 
devono venire indicati a loro volta due estremi ciascuno: 

Struttura dati “lati”: 

— Numero del primo estremo 

— Numero del secondo estremo 

Sarà possibile trovare le coordinate solo dopo aver numerato completamente gli estre¬ 
mi (naturalmente relativamente al sistema di coordinate dell'oggetto in vigore in quel 
momento). 
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Nelle strutture precedenti abbiamo citato i “puntatori'', i quali naturalmente possono 
anche essere numeri o simili (come nel caso dei lati). Inoltre, se serve, è possibile con¬ 
globare le diverse strutture di dati. Le strutture più elevate (oggetti, superaci ecc.) de¬ 
vono venire tralasciate in caso, per esempio, di un cosidetto modello di tracciatura di 
un oggetto. Inoltre sarà necessario fare attenzione al fatto che il sistema di strutture 
o di oggetti non divenga troppo complicato, dal momento che tale eventuale compli¬ 
cazione, in presenza di una organizzazione non ancora perfetta, potrebbe far aumen¬ 
tare sostanzialmente i tempi di calcolo. 


Ritroveremo spesso nel presente libro alcune parti del sistema di dati di cui sopra, 
in particolare laddove sono necessarie per una migliore comprensione. 


4.3 Elementi matematici di base per il calcolo tridimensionale 


Il calcolo matriciale e la sua applicazione nella grafica per computer dovrebbe già 
essere noto, grazie al capitolo relativo alle due dimensioni. Tuttavia, per le molte appli¬ 
cazioni grafiche non possiamo ignorare una ulteriore tecnica: il calcolo vettoriale. 


Esistono in realtà diversi metodi matematici per la produzione delle più diverse figu¬ 
re ed effetti grafici. Ritengo tuttavia che il calcolo vettoriale sia la forma di rappresenta¬ 
zione più semplice e comprensibile, come vedremo fra poco. Chiedo scusa ai lettori 
ferrati in questa materia per il linguaggio poco matematico che sto per usare, che ren¬ 
derà tuttavia molto più comprensibile questo argomento ai lettori più incerti. 


a) Cos’è un vettore? 

Cerchiamo di immaginare una freccia che punta in una determinata direzione e 
che possiede una determinata lunghezza. Al fine di identificare un vettore, dobbia¬ 
mo fornire due parametri: la direzione e la lunghezza. Questa freccia potrà trovarsi 



90 













* -na posizione qualunque sul piano (o nello spazio) senza che sia necessario mo- 
c*care questi due parametri. Quindi è possibile spostare tale freccia a piacere su 
z jn piano o nello spazio. Esso resterà sempre lo stesso vettore, se non si modifica 
a jnghezza e la direzione. Il punto iniziale di un vettore viene chiamato anche pie¬ 
ce mentre il punto terminale viene chiamato punta. 

in futuro contrassegneremo sempre i vettori con una piccola freccia diretta verso 
cestra (es: v). I numeri semplici, al contrario, verranno espressi in maniera normale. 

Nel caso in cui un vettore abbia una lunghezza Uno, lo si chiamerà vettore unita¬ 
lo. Il vettore zero ha lunghezza Zero, la sua direzione è indeterminata. 

Con i vettori è possibile anche effettuare dei calcoli: la direzione di un vettore cambia 
oer esempio nella direzione contraria, quando se ne modifica il segno (-v). v e -v 
sono detti anche antiparalleli (infatti essi sono paralleli ma puntano in direzioni con¬ 
trarie): 




Fig. 4.8 Rappresentazione di un vettore nel piano 
cartesiano 


In alternativa è possibile indicare un vettore v anche con coordinate semplici. Per 
fare ciò, si ipotizza che il piede del vettore si trovi nel punto 0 delle coordinate (è 
possibile tuttavia spostarlo a piacere). Come coordinate del vettore verranno quindi 
indicate le coordinate della sua punta (anche in questo caso sono sufficienti due 
parametri per il piano e tre per lo spazio): 



oppure, nello spazio: 
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Questo sistema di scrittura delle coordinate è molto importante, dal momento che 
lo utilizzeremo nei programmi. Determineremo inoltre delle parallele alle matrici del 
punto. Un vettore infatti può anche venire visto come una specie di matrice. Ciò no¬ 
nostante sarà importante non scambiare questi due concetti me-.ematici, dal momento 
che vengono utilizzati in maniera completamente diversa l uno dall'altro. 

La lunghezza del vettore è la sua grandezza (una sorta di valore assoluto per vet¬ 
tori). Essa può venire determinata tramite la seguente formula, che dovremo tenerci 
bene a mente, dal momento che ne avremo bisogno spesso: 



Ivi 


Rileveremo giustamente delle somiglianze con il teorema di Pitagora. Tale formu¬ 
la può venire dedotta dallo schizzo precedente. 

In caso di vettori spaziali avremo invece: 



Come abbiamo già visto, con i vettori è possibile anche effettuare dei calcoli. Per fare 
ciò valgono particolari regole di calcolo, che tuttavia non è per noi necessario dimostrare: 

b) Moltiplicazione per un numero: 

E' possibile moltiplicare un vettore per un numero a. Ciò tuttavia non deve venire 
scambiato con il prodotto scalare che vedremo in seguito. Con ciò si deve intendere 
l'allungamento o la riduzione del vettore v in questione. Il risultato sarà anch'esso 
un vettore che possiederà la lunghezza a*|v|. Se a è negativo, otterremo contempo¬ 
raneamente anche l'inversione della direzione del vettore. Nel caso di a = 0, il risul¬ 
tato sarà un vettore 0: 
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Fig. 4 9 Moltiplicazione per un numero 


Fìg, 4.10 Addizione vettoriale 















Nello spazio: 


a'v = a 



in questo contesto è molto importante un ulteriore concetto: l'indipendenza linea- 
-e dei vettori. Due vettori saranno indipendenti linearmente quando non è possibile 
• r asformare uno nell'altro tramite una moltiplicazione per un numero semplice. In 
aitm parole quando non sono nè paralleli nè antiparalleli l'uno rispetto all'altro. Di 
conseguenza verranno definiti dipendenti linearmente, o meglio collineari, due vet¬ 
tori che hanno la stessa direzione (o direzioni opposte) ma non necessariamente 
a stessa lunghezza. 

: Addizioni/sottrazioni di vettori: 

Con due vettori v e w è possibile anche effettuare delle addizioni e delle sottrazio- 
ni II risultato sarà anch'esso un vettore. Se vogliamo rappresentare graficamente 
jn addizione di questo genere, dovremo spostare solo il piede del vettore w sulla 
ounta del vettore v. Il vettore risultante partirà quindi dal piede del vettore v fino alla 
punta del vettore w (vedi figura 4.10). Sotto forma di coordinate, avremmo: 



Allo stesso modo, nello spazio, avremo: 



Anche la sottrazione di due vettori è molto semplice e corrisponde praticamente 
all'addizione. Al momento del tracciato invertiremo semplicemente il segno del se¬ 
condo vettore (-w = > cambio di direzione) e effettueremo l’addizione dei due vet¬ 
tori (v + (-w)). 


Y 




X 


-c -(li Sottrazione vettoriale 


Fig. 4 12 Prodotto.vettoriale 


93 













Regole di calcolo: 

v + w = w + v 

a*(b*v) = (a*b)*v 

a*(v + w) = a*v + a'w 

la*v| = |a| * |\?| 



v + (w + u) = (v + w) + u 
(a+b)*v = a*v + b*v 


d) Prodotto scalare: 

E’ inoltre possibile moltiplicare l’uno per l’altro due vettori v e w. In questo caso, 
tuttavia, abbiamo due possibilità. Per il cosidetto prodotto scalare v*w (cioè: v per 
w) il risultato sarà un numero semplice (scalare), mentre per il prodotto di vettori v 
x w (cioè: v attraverso w) avremo di nuovo un vettore. 


Il prodotto scalare viene definito come segue: 


v*w = |v| * |w| * cos(a) 


In questo caso, a è l’angolo tra i due vettori da moltiplicare. Le grandezze di v 
e w sono, come noto, le lunghezze dei due vettori. In formato coordinate avremo: 

v*w = v/w* + v y *w y 

mentre per vettori spaziali: 

V*W = V x *w x + V y *W y + v z *w z 

Sembra molto semplice, e si tratta delle formule che in seguito per noi saranno 
essenziali. 


Un’applicazione importante del prodotto scalare è il calcolo dell’angolo a tra due 
vettori, modificando la formula di cui sopra: 

v*w = |v| * |w|*cos(a) < = > 
v * w 


cos(a) 


|v| * |w| 


< = > 







cos(a) = 


v»*w x + v v *w v + v 2 *w z 
V ( (Vx 2 + V y 2 + V z 2) * (W x 2 + W y 2 + W z 2)) 

Per vettori su di un piano, impostiamo semplicemente v 2 e w z = 0. 

Per le nostre esigenze è molto importante anche un'altra caratteristica del prodot¬ 
to scalare. Non appena i due vettori da moltiplicare si trovano l'uno ortogonale al¬ 
l'altro, il coseno del loro angolo (coseno di 90°) diventa 0 e di conseguenza il prodotto 
totale sarà: s 

v*w = 0 per v si intende verticalmente a w 

Quindi è possibile determinare con facilità se due vettori sono perpendicolari. 

Esistono naturalmente numerosi vettori perpendicolari rispetto ad un altro vettore. 
Su di un piano, però, ce ne sono solo due, che possiedano contemporaneamente 
anche la stessa lunghezza (ciò può venire calcolato dal formato di coordinate del 
prodotto scalare): 


vettore di partenza: v = 

Rispetto ad esso avremo verticalmente e con la stessa lunghezza: 



Per lo spazio tuttavia esistono moltissime possibilità in più. 

Regole di calcolo: 

v*w = w*v 

(a*v)*w = a*(v*w> 

v*(w + u) = v*w + v*u 

v*v = v2 

= Ivi 2 

In ogni caso non vale: 
v*(w*u) = (v*w)*ù 

In altre parole: sarà necessario fare attenzione ad eseguire le moltiplicazioni sca¬ 
lari sempre nella sequenza giusta. 

e) Prodotto di vettori: 

Abbiamo già citato il prodotto di vettori. Si tratta del tipo di moltiplicazione di_due 
vettori che fornisce come risultato un altro vettore. Questo nuovo vettore p= v x w 
ha una lunghezza di: 









|p| = |v x w| = |v| * |w| * sin(a) 


Ciò non è altro che il contenuto in superfice del parallelogramma tracciato da v 
e w (vedi figura 4.12). p è perpendicolare ai due vettori v e w, quindi è proiettato 
nello spazio (v, w e p producono un sistema destro). Un vettore perpendicolare vie¬ 
ne chiamato anche vettore normale. 


Matematicamente viene definito come segue: 


( v y ‘w z - v z *w y \ 
v z *w x - v x *w z I 

V„*W y - Vy'W,, I 

Regole di calcolo: 


vxw 
(a*v)xw 
v x (w + u) 
vxw 
vx v 


-(w x v) 
a*(vx w) 
vxw + vxu 

Vettore zero (nel caso in cui v sia parallelo o antiparallelo a w) 
Vettore zero 


f) Rappresentazione dei punti tramite vettori: 

Il sistema dei vettori è molto flessibile. Esso ci fornisce per esempio la modalità 
per rappresentare un singolo punto in un sistema di coordinate, anche in notazione 
vettoriale, senza problemi (in questo caso sono presenti sia matrici che vettori). 


Il trucco è molto semplice: si pensi dapprima ad un punto P con le coordinate 
P(x,y). Inoltre si immagini un vettore v dall'origine dello coordinate fino al punto P 
desiderato in un sistema di coordinate. Tale vettore potrà venire indicato, come no¬ 
to, con la notazione di coordinate nel modo seguente: 



Fig. 4.13 Rappresentazione di un punto tramite vettori Fig. 4 14 Equazione vettoriale di una retta 















* .. e z sono quindi le coordinate del punto. Invece di effettuare i calcoli con il pun- 
~ sesso, facciamolo con il vettore di questo punto, senza incontrare alcun proble¬ 
ma Potremo anche cambiare il nome del vettore v in P: 

z = oppure p= (y) 

Con P (che rappresenta propriamente il punto P) effettueremo i calcoli esattamen¬ 
te come con vettori normali - e vedrete che lo utilizzeremo molto. 

Rappresentazione di linee tramite vettori: 

Per i calcoli geometrici che ci accingiamo a compiere, le linee sono naturalmente 
molto importanti, in particolare le rette. Per questo motivo vediamo subito come può 
.enire rappresentata sotto forma di vettori una retta bidimensionale. Osserviamo, 
oer migliore chiarezza, la figura 4.14. 

Equazione vettoriale di una retta (vale sia per il piano che per lo spazio): 

g: P = Po + t‘à 

oppure, in notazione di coordinate: 



( 


Pox + t*a x 
Poy + t’ a y 


Da ciò potremo derivare semplicemente anche due equazioni, calcolando sepa¬ 
ratamente le componenti x ed y: 

9: P* = Pox + t*a x 

Py = Poy + t* a y 

Nello spazio avremo inoltre la coordinata z: 

g: Px = Pox + t*a x 

Py - Po y + t*3y 

p z = p 0z + t*a z 

Dove: 

p — Vettore dall'origine delle coordinate fino al punto P da calcolarsi della retta 
(oppure semplicemente: punto P) 

Po — Vettore dall’origine delle coordinate ad un punto P 0 a piacere della retta (op¬ 
pure semplicemente: punto P 0 ) 

à — "Vettore di direzione”, vettore a piacere parallelo alla retta 
t — Fattori di "allungamento" (oppure riduzione) del vettore à, al fine di raggiun¬ 
gere il punto P. 
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"g” significa che abbiamo a che vedere con una equazione di rette. Il punto (o 
meglio il vettore) p rappresenta quindi tutti i punti della linea. 


Partiamo quindi da un punto P 0 sulla retta (a questo scopo può venire utilizzato 
un punto a piacere della retta). Dal momento che d'ora in poi esprimeremo i punti 
solo come vettori che vanno dall’origine delle coordinate fino al punto in questione 
(vedi sopra), da questo punto risulta il vettore p 0 (per semplicità, anche se in ma¬ 
niera poco matematica, abbiamo dato al punto e al vettore lo stesso nome, dal mo¬ 
mento che in seguito non vorremo più effettuare distinzioni tra il punto e il vettore). 
Tracciamo da questo punto un secondo vettore à in direzione della retta (anche questo 
vettore è stato scelto a piacere e deve solo giacere sulla retta, indipendentemente 
dalla sua lunghezza). Questo vettore ci fornisce la direzione della retta. Ora, al fine 
di calcolare un punto a piacere P sulla retta, dovremo moltiplicare questo vettore 
di direzione con un fattore t. Ambedue i vettori risultanti p 0 e t*à vengono sommati 
e forniscono come risultato il vettore p, la cui forma parametrica ci fornisce diretta- 
mente le coordinate del punto della linea P. 


Al fine di determinare una retta ben precisa, sarà quindi necessario fornire sem¬ 
plicemente i parametri p 0 e à. Da valori a piacere per t verranno calcolati quindi tutti 
i punti P (oppure vettori p) della retta. 


h) Intersezione di due rette: 

Con quanto appreso finora, potremo calcolare molto semplicemente il punto di 
intersezione di due rette su un piano. Ipotizziamo di avere due rette g e h con le 
seguenti equazioni: 

g: p = pO + t*à 
h: q = qO + s*b 

* 

Dal momento che cerchiamo un singolo punto, che si trovi su ambedue le rette, 
quindi per il quale p e q divengano uguali, potremo uguagliare le due equazioni: 

Po + t*à * q 0 + s*b 


In notazione di coordinate (su di un piano potremo impostare il parametro z=0 
e quindi tralasciarlo) avremo: 




oppure: 


POx "*■ I “ dox ■*" S b x 

p 0y + t’a y = q 0y + s*b y 

Po z + t* a z = doz + s*b 2 
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e 



Dal momento che conosciamo i parametri p 0x , p 0y , p 0z , a x , a y , a z , nonché q x , q y , 
b x , b y e b z (essi infatti determinano le due rette) dovremo determinare ancora t e 
s, al fine di ottenere il punto di intersezione P o Q. Risolviamo due delle equazioni 
secondo una delle due variabili (in questo caso secondo t): 

t _ q 0x + s*b x - p 0x 
a x 

e: 

j _ Qov + s b v • Pq v 

a y 


Uguagliamo di nuovo le due equazioni, al fine di poter eliminare t e di poter calco¬ 
lare s. L’s calcolato verrà quindi aggiunto ad una delle equazioni finali, al fine di de¬ 
terminare t. s e t formeranno quindi il punto di intersezione, nel caso esso esista. 
Nello spazio, dovremo aggiungere ancora ambedue i valori ad una terza equazione 
(in questo caso l'equazione con il parametro z). Se questa aggiunta fornisce un ri¬ 
sultato, il punto di intersezione esiste. Sul piano non abbiamo bisogno di questa coor¬ 
dinata z, di conseguenza quest’ultimo test è superfluo. Anche sul piano potremo 
giungere ad una soluzione non univoca, nel caso in cui le due rette corrano parallele. 


i) Rappresentazione di un piano tramite vettori: 

Per i nostri obiettivi tridimensionali è particolarmente significativo poter definire an¬ 
che dei piani nello spazio tramite dei vettori. L'equazione per un piano somiglia a 
quella di una retta come l'abbiamo vista precedentemente: 

e: p = Po + s*à + t*b 


oppure, in notazione di coordinate: 


e: 



( Pox \ /a x \ / b x \ 

arter* U) 

( p 0x + s’a x + t*b x \ 

Poy + s*a y + t*b y I 
Poz + s*a z + t*b z / 


Da ciò, come per le rette, potremo trarre di nuovo tre equazioni, calcolando sepa¬ 
ratamente le componenti x, y e z: 

e: Px = Pox + 3*a x + t*b x 

P y = Poy + s*a y + t*b y 

Pz = Poz + s*a z + t*b z 
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Dove: 


p — vettore dall’origine delle coordinate fino al punto P da calcolarsi del piano 
(oppure semplicemente punto P) 

Po — vettore dall'origine delle coordinate ad un punto P 0 a piacere del piano (op¬ 
pure più semplicemente: punto P 0 ) 
à,b — vettori a piacere, linearmente indipendenti, sul piano 
s,t — fattori per "allungamento” (oppure riduzione) dei vettori à e b, al fine di rag¬ 
giungere il punto P. 


"e:" significa che abbiamo a che fare con equazioni di piani. Il punto (o meglio 
il vettore) p rappresenta quindi tutti i punti del piano. 



Y 


X 


Fìg. 4.15 Equazione vettoriale di una retta, tipo 1 


Analogamente a quanto detto per la definizione di una retta (vedi sopra), partia¬ 
mo da un punto a piacere P 0 sul piano e tracciamo due vettori (vedi addizione di 
vettori), che dovranno trovarsi sul piano desiderato ed essere indipendenti linear¬ 
mente. “Indipendenti linearmente” (vedi sopra) significa in questo caso che i vettori 
non potranno essere nè paralleli nè antiparalleli (la lunghezza, invece, non ha im¬ 
portanza). Ambedue i vettori raggiungeranno quindi, dopo essere stati opportuna¬ 
mente allungati o ridotti, qualunque punto a piacere sul piano (in maniera vagamente 
paragonabile al cursore di un tavolo da disegno). L'allungamento oppure la riduzio¬ 
ne potranno venire ottenuti tramite una scelta adeguata dei fattori s e t. I tre vettori 
risultanti p 0 , s*à e t*b forniranno quindi, sommati, il vettore di risultato p per il pun¬ 
to sul piano che stiamo cercando. 


Al fine di tracciare un piano ben determinato, dovremo semplicemente fornire i 
parametri p 0 , à e 6. Fornendo valori a piacere per set, determineremo quindi tutti 
i punti P (oppure vettori p) del piano. 
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Questa forma di rappresentazione di un piano, in particolare per il calcolo delle 
intersezioni, non sarà tuttavia molto comoda, dal momento che dovremo effettuare 
dei calcoli sempre con tre vettori (p 0 , à e 6) e che otterremo quasi sempre un siste¬ 
ma di tre equazioni in tre incognite abbastanza scomodo. Questo viene spesso so¬ 
stituito da un’altra forma di equazione sul piano, che opera con la normale al piano 
(cioè con un vettore perpendicolare al piano). Essa è la seguente: 

e: (P-P 0 )*h = 0 


oppure una delle seguenti equazioni: 


e: (P-Po)'n 
P*n - P 0 *h 
P 0 *ri - P*n 
P*n 


= 0 < = > 

= 0 < = > 

= 0 < = > 

= P 0 *n 


oppure, in notazione di coordinate: 



Dal momento che in questo caso ci troviamo di fronte ad una moltiplicazione sca¬ 
lare, il risultato di (P-P 0 )*ri sarà un numero. Conformemente alla definizione del pro¬ 
dotto scalare, otterremo: 

e: (px-p 0x )*n x + (p y -p 0y )*n y + (p z -p 0z )*n z = 0 


oppure: 

e: p x *n x + p y *n y + p z *n z = p 0x *n x + p 0y *n y + p 0z *n z < = > 
e: p x *n x + p y *n y + p z *n z = d 


dove: 

P — Punto da calcolarsi del piano 
P 0 — Punto fisso a piacere del piano 
ri — Normale al piano (vettore perpendicolare al piano) 
d — Abbreviazione per d = p 0x *n x + Poy*n y + p 0z *n z 
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Fig. 4.16 Equazione vettoriale di una retta, tipo 2 


E questo rappresenta il segreto di questa forma di piano: invece di avere a che 
fare con tre equazioni in forma parametrica, abbiamo a che fare con una sola. Al 
fine di indicare un determinato piano, avremo quindi bisogno solo dei vettori ri e 
del punto P 0 (il prodotto scalare P 0 *ri è quindi d). 


Un punto P sarà quindi punto del piano solo se l’equazione è verificata: criterio 
ideale per la determinazione del punto di intersezione. Questa equazione tuttavia 
non è adeguata a calcolare un punto P del piano, dal momento che P deve già es¬ 
sere noto, al fine di poter costruire l’equazione stessa. 


Spesso però sarà necessaria anche la vecchia forma vettoriale del piano, al fine 
di poter appunto determinare un punto P. Come trasformare quindi queste due equa¬ 
zioni l'una nell'altra? 


Trasformazione: da equazione s-t a equazione della normale: 

A questo scopo determiniamo dapprima il vettore della normale ri. Esso potrà ve¬ 
nire determinato dal prodotto vettoriale à x 6, dal momento che si trova perpendico¬ 
lare a questi due vettori della prima equazione del piano: 

_ r / a y b 2 - a z b y \ 
n = axb = [ a z *b x a x *b z ) 

\a x *b y - a y *b x / 


E con ciò avremmo determinato ri. P 0 resta naturalmente uguale a P 0 . s e t non 
sono necessari, dal momento che conosciamo la normale e il punto P. 
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Trasformazione: da equazione della normale a equazione s-t: 

La trasformazione contraria è molto più complicata, dal momento che dovremo 
determinare s e t dalla normale n e dal punto P. Se i due vettori à e 6 non sono 
noti, dovremo prima di tutto calcolarli (esistono innumerevoli combinazioni per à e 
b). Se essi invece sono noti, dovremo trasporli (la direzione e la lunghezza di questi 
vettori possono contenere informazioni molto importanti per determinati scopi). 


Determiniamo quindi dapprima una coppia di à e b per il caso in cui questi non 
ci siano noti. Sappiamo che ambedue i vettori si trovano perpendicolari ad h. Per 
prodotti scalari vale quindi: 

à'n =0 e 
b*n = 0 


e con ciò: 

a x *n x + a y *n y + a z *n z = 0 e 

b x *n x + b y *n y + b z *n z = 0 

Dal momento che per i parametri dei vettori a x , a y ecc. esistono infinite soluzioni 
(escluso à = b oppure à = vettore zero oppure b = vettore zero), scegliamone una 
specifica che ci semplifichi il lavoro: 


Vediamo dapprima un caso particolare: 


Se due parametri di h sono uguali a zero, impostiamo uno dei parametri corri¬ 
spondenti di à uguale a 1, l’altro uguale a 0. Per b, scegliamo i parametri esatta¬ 
mente al contrario. Il parametro di fi, il cui valore era diverso da 0, fa in modo che 
i parametri corrispondenti di à e b divengano uguali a 0 (es: con n x = 0, n y = 5, n z = 0, 
impostiamo: a x = 1, a y = 0, a z = 0 e b x = 0, b y = 0, b z = 1 : dal momento che n x = n z = 0, 
avremo a x = b z =1 e a z = b x = 0 dal momento che ny < > 0, avremo a y = b y = 0). 


Dopo aver controllato il caso specifico di cui sopra, scegliamo due parametri di 
fi che non siano uguali a 0. Chiamiamoli ni ed n 2 . Il terzo parametro che abbiamo 
tralasciato, il cui valore può essere a piacere, si chiamerà n 0 .1 parametri corrispon¬ 
denti di à e b saranno quindi: a,, a 2 e ao, oppure b,, b 2 e b 0 . Quindi scegliamo: 

&o = bo = 0 

a 2 — b-j = 1 
a-j = -n 2 /n, 
b 2 = -n,/n 2 

Con ciò avremo determinato una coppia di à e b. 
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Il calcolo di s e t è un po' più complicato. Anche in questo caso dovremo effettua¬ 
re una differenziazione di casi. Il punto di partenza è la forma della normale del piano. 

(P-P 0 )*n = 0 

Per semplicità impostiamo, a partire da questo momento: 
v = P-P 0 
Quindi otterremo: 
v * ri = 0 

Trasformiamo la forma s-t del piano come segue: 

p = P 0 + s*à + t*b < = > 

s*à = (P-P 0 ) - t*b < = > 

s*à = v - t*b 

E, in notazione di coordinate: 

s*a x = v x - t*b x 
s’a y = v y - t*b y 
s’a z = v z - t*b z 

v x , v v e v z sono noti esattamente come a xt a y , a z , b x , b„ e b z . Solo le due variabili 
s e t debbono venire determinate. A tale scopo avremo bisogno solo di due equa¬ 
zioni, che sceglieremo fra le tre (i suffissi i e j stanno per x, y oppure per z): 

s*a, = V| - t*b, 
s*a, = Vj - t*b. 

Dal momento che i vettori à e b non possono essere vettori 0, almeno un parame¬ 
tro di à e b dovrà essere diverso da 0), scegliamo come prima equazione quella 
per la quale sia ai che l’espressione bj'a, - b,’a, (vedi sotto) sia diversa da 0. Ciò 
semplificherà molto le cose. Se non fosse possibile, avremmo commesso un errore 
da qualche parte. I vettori à e b non sono indipendenti linearmente. Calcoliamo: 

s*a, = ^ - t*b, < = > 

s = (v.-fb^/a, 

E utilizziamolo nella seconda equazione: 

- t'bj/a, * a, 
v,*a, - fb,-a, 
t*(b,*a, - b'a) 
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= v i ' t*bj < = > 

= Vj*a, - t*b,*a, < = > 

= Vj*a, - Vj*a, < = > 







t = Vi*a, • Vj*a, 

b|*a, - 5‘a, 

Abbiamo potuto effettuare anche quest'ultimo passaggio, dal momento che ab¬ 
biamo controllato precedentemente che b,*ai-b,*a, siano veramente diversi da 0. t 
viene determinato e potrà quindi venire utilizzato nella equazione per la determina¬ 
zione di s. E con ciò avremmo completato l’equazione del piano. 


4.4 Proiezioni - da 3 a 2 


Se vogliamo rappresentare sul nostro schermo degli oggetti tridimensionali, ci trove¬ 
remo di fronte al problema di come realizzare su di esso un’immagine bidimensionale, 
dal momento che lo schermo tridimensionale non è ancora stato inventato (anche se 
tecniche quali l’olografia potrebbero fornirne il fondamento teorico). Dovremo inven¬ 
tarci un procedimento che produca dalle coordinate tridimensionali di un singolo pun¬ 
to delle coordinate bidimensionali per il monitor. Si tratta quindi del problema della 
proiezione. Con il termine proiezione potremo immaginare la stessa cosa che accade 
nella proiezione del mondo tridimensionale su di una pellicola, necessariamente bidi¬ 
mensionale, di una macchina fotografica. Nel nostro caso, il monitor assume il ruolo 
della pellicola. Quello che invece accade automaticamente fuori dalla macchina foto¬ 
grafica, dovrà venire calcolato dal computer punto per punto. 

Questa analogia con la macchina fotografica dovrà venire sempre tenuta presente 
nei capitoli seguenti, nel caso in cui si abbiano problemi di comprensione. In essi in¬ 
contreremo infatti dei processi che, in linea di principio, mantengono la stessa analogia. 


Per quanto concerne i problemi matematici, siamo ora in possesso degli strumenti 
necessari per le operazioni grafiche, che andremo ad apprendere nel presente capito¬ 
lo, già a partire dall'ultimo capitolo. Dovremo solo trasferire tali principi al mondo tridi¬ 
mensionale. Tutte le matrici, sia matrici di punti che matrici di trasformazione, verranno 
solo ampliate. 


Un punto, in un sistema di coordinate bidimensionale, potrà venire espresso anche 
con coordinate tridimensionali (infatti viene aggiunta solo la coordinata z). La coordina¬ 
ta z verrà quindi impostata a 0. Il piano del sistema di coordinate bidimensionale si 
trova quindi esattamente sul piano x,y del sistema tridimensionale che attraversa il punto 
0. Trasformiamo quindi coordinate bidimensionali in coordinate tridimensionali come 
segue: 

P(x,y) = P(x,y,0) 

Naturalmente dovrà trattarsi dello stesso punto e di quello soltanto. Allo stesso modo 
trasformeremo la relativa matrice del punto P come segue: 


P = (x y) = (x y 0) 
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E, in coordinate omogenee (ved. punto 3.2.5, sotto il titolo ‘‘Traslazione”): 
P = (x*w y*w w) = (x*w y*w 0*w w) 


Anche in questo caso la coordinata z è uguale a 0. In generale scriveremo quindi 
per un punto tridimensionale quanto segue: 


— Notazione in coordinate 

— Notazione matriciale 


P(x,y,z) 

P = (x y z) 


p = (x*w y*w z*w w) — Notazione matriciale per coordinate omogenee 


Allo stesso modo dovremo ampliare le matrici di trasformazione. Approfondiremo 
ulteriormente le formule generali per i rapporti tridimensionali. Per il momento amplia¬ 
mo solo le matrici per trasformazioni da bidimensionali a tridimensionali. Tutte le matri¬ 
ci verranno ampliate di una riga ed una colonna. Dalla matrice per il cambio di scala: 



come abbiamo imparato nel capitolo dedicato alla grafica bidimensionale, otterremo: 



S(S x ,S y ) =1 0 S y 0 

V 0 0 1 



Allo stesso modo potremo ampliare tutte le altre matrici di trasformazione. Ecco la 
matrice di traslazione ampliata (potrete verificarla con i calcoli): 



Facciamo tuttavìa attenzione al fatto che in questi casi si tratta sempre delle stesse 
trasformazioni. Ciò significa che si ipotizza che la coordinata z sia sempre uguale a 
0 e che non si desideri nè ingrandire nè ridurre in direzione z. 
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Dopo questo chiarimento, rivolgiamoci direttamente alla proiezione, già accennata, 
di coordinate tridimensionali su di un piano. Esistono molte possibilità a seconda degli 
obiettivi che ci si è preposti. Nel presente caso esaminiamo due di questi tipi di proiezioni: 

— proiezione parallela 

— proiezione centrale (chiamata anche proiezione prospettica) 


La prima forma è molto semplice da realizzare da un punto di vista matematico ed 
è particolarmente adeguata per immagini in scala, che per esempio vengono utilizzate 
in architettura. La seconda necessita di un tempo di calcolo maggiore Tuttavia si tratta 
della rappresentazione più realistica per l'occhio umano. 


4.4.1 II sistema più semplice: proiezione parallela 

Nella trasformazione di coordinate da tridimensionali a bidimensionali potrebbe an¬ 
che venirci in mente di tralasciare la coordinata z, che disturba, cioè di impostarla uguale 
a 0 per tutti i punti in questione. Nella pratica, questo è già un caso particolare della 
proiezione parallela. Essa infatti viene chiamata così proprio perché da tutti i punti tridi¬ 
mensionali di una immagine vengono tracciate linee parallele (cioè vettori) fino al piano 
x,y (z = 0). I punti nei quali tali vettori di proiezione incontrano il piano (lo intersecano) 
rappresentano i cosiddetti punti di proiezione. Per essi la coordinata z è uguale a 0 
e di conseguenza può venire tralasciata, a tutto vantaggio di un sistema di coordinate 
semplificato. 












Nel caso specifico appena visto, nel quale la coordinata z di ogni punto viene sem¬ 
plicemente impostata come uguale a 0, i vettori di proiezione corrono ancora paralleli 
all’asse z, per cui le coordinate x ed y non si modificano al momento della proiezione, 
indipendentemente dal valore della coordinata z. In questo caso si tratta di una forma 
della cosiddetta proiezione ortogonale, nella quale i vettori di proiezione si trovano per¬ 
pendicolari (= ortogonali) al piano di proiezione. 


Esistono anche altre proiezioni parallele che vengono applicate per esempio nei di¬ 
segni tecnici (es: proiezione cavaliera). In essa il piano di proiezione non sempre si tro¬ 
va sul piano x,y. Possono venire utilizzati anche i piani xz, yz oppure altri a piacere. 
Le loro descrizioni matematiche saranno diverse da quelle seguenti. Spesso tuttavia 
si tratta di modifiche non essenziali, facili e veloci da eseguire. 


Il seguente procedimento ipotizza che il piano xy rappresenti il piano di proiezione. 
I vettori di proiezione, si tratta a dir la verità di un solo vettore di proiezione, dal momen¬ 
to che è solo la sua direzione ad avere importanza, saranno a piacere, sempre che 
non siano paralleli al piano. 


Cerchiamo di ricordare la forma vettoriale dell’equazione di una retta: 

P = P 0 + s*à 

Ipotizziamo che il nostro vettore di proiezione v (cioè il vettore di direzione di tutte 
le linee dal punto tridimensionale al piano di proiezione) sia: 



Il punto tridimensionale da proiettare possiede le coordinate: 



Quindi, l'equazione della retta dal punto tridimensionale al punto che si trova sul pia¬ 
no di proiezione sarà: 

P = Q + s*v 

oppure, sotto forma di parametri: 

P x = Q x + s*v x 

P y = Q y + s*v y 

P 2 = Q z + s*v 2 
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P è quindi il punto ricercato sul piano di proiezione, cioè il punto nel quale la retta 
taglia il piano. A questo punto dovremo ancora determinare quale dovrà essere il valo¬ 
re di s. Dopo ciò, potremo determinare P. Il nostro piano, come determinato preceden¬ 
temente, dovrà essere il piano xy. La coordinata z del punto di proiezione sul piano 
sarà quindi uguale a 0. Se però Pz è uguale a 0, otterremo dalla terza equazione di 
parametri: 

0= Q z + s * v z < = > 


v z 


Ciò potrà venire di nuovo utilizzato nelle prime due equazioni, e dopo un paio di so¬ 
stituzioni, otterremo la formula per la proiezione parallela: 

P* = Qx ‘ Qz ( v x/ v z) 

Py = Qy - Qz ‘(Vy/V^) 

dove: 

P x , FL — Coordinate del punto del piano proiettato 
Q x , Qy, Q z — Coordinate del punto nello spazio da proiettare 
V x , V y , V z — Vettore di proiezione 


Da ciò, determiniamo la seguente matrice di trasformazione: 
PP(v x ,v y , 


?) 

\-V x /V Z -Vy/V Z / 


oppure, in coordinate omogenee con la trasformazione di un punto Q(Q X ,Q Q^: 


(P x Py 0 1) = (Q x Qy Q z 1) 


( 1 0 0 0 \ 

0 1 0 0 1 

-v x /v z -v/v z 0 0 1 

0 0 0 1 / 


Nei programmi per computer, la proiezione parallela viene spesso utilizzata associa¬ 
ta alla rotazione attorno all'asse x. In questo caso il vettore di proiezione sarà semplifi¬ 
cato al massimo. Si tratterà quasi di una parallela all’asse z con lunghezza 1, come 
vediamo qui di seguito: 
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La matrice di trasformazione PP(0,0,-1) viene con ciò molto semplificata (provate a 
controllare). La conseguenza è che incontreremo il caso particolare nel quale vengono 
utilizzate le coordinate x ed y, mentre la coordinata z sparirà (vedi sopra). Prima della 
proiezione, l’intera immagine sarà ruotata attorno all'asse x e all’asse y (sarebbe natu¬ 
ralmente è anche possibile una rotazione attorno all’asse z). Con ciò la coordinata z 
originale avrà di nuovo un influsso sulle coordinate di proiezione risultanti. L’angolo 
di rotazione e le sue funzioni angolari verranno calcolati una volta sola all’inizio della 
proiezione e in seguito trasferiti nel calcolo come costanti. Il vantaggio di questo meto¬ 
do è che gli angoli di rotazione rappresentano praticamente l’angolo di visuale, con 
il quale l'osservatore sta guardando l’immagine. Nei programmi, gli angoli sono molto 
più semplici da maneggiare dei vettori di proiezione. Dal momento che ci occuperemo 
solo in seguito di rotazioni nello spazio, vediamo una matrice di rotazione e di proiezio¬ 
ne parallela: 


P = Q * R y (b)*R x (a)*PP(0,0,-1) = 


(P* P y 0 1) = 

(Qx Qy Qz 1) * 


( cos(b) sin(a)*sin(b) 0 o\ 

0 cos(a) 0 0 1 

sin(b) -sin(a)*cos(b) 0 0 I 

0 0 0 1 / 


e, in forma di parametri: 

P x = Q x *cos(b) + Q z *sin(b) 

P y = Q x *sin(a)*sin(b) + Q y *cos(a) - Q z *sin(a)*cos(b) 


dove: 


P (Px.Py) 

Q (Q x .Qy.Qz) 

Ry(b) 

Rx(a) 

PP(0,0,-1) 


b 


Punto risultante nel piano 
Punto di partenza nello spazio 

Matrice di rotazione: rotazione attorno all’asse y con l’angolo b 
Matrice di rotazione: rotazione attorno all'asse x con l’angolo a 
Matrice di trasformazione: proiezione parallela con vettore di proie¬ 
zione v = (0 0-1) 

Angolo di rotazione attorno all’asse x 
Angolo di rotazione attorno all'asse y 


La rotazione degli oggetti può venire vista anche come rotazione dei piani di proie¬ 
zione, la quale naturalmente avrà luogo in direzione contraria. 


La forma parametrica indicata è esattamente la formula che utilizzeremo nel program¬ 
ma seguente, al fine di proiettare un oggetto tridimensionale sul monitor. Osserviamo 
con calma ed attenzione tale programma: per la prima volta vedremo come trasferire 
nella pratica tutta quella grigia teoria cui finora ci siamo dedicati. 
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I************************** 

'** Proiezione ** 
'** Parallela ** 
' ♦ *•* ♦ * 
• ********************** 4 +** 


PI = 3.141593 

'Traslazione delle coordinate del piano: 
'(Posizione dell’origine delle coordinate) 
mausft = MOUSE(0) 

vi = MOUSE(3) 'Prelevamento delle 

v2 = MOUSE<4) 'coordinate del Mouse 


'Angolo di rotazione di Start del piano di proiezione (Gradi): 
c*9 = 10 'Rotazione attorno all'asse x 

t<g = -10 'Rotazione attorno all'asse y 

a * PI * ag/180 'Trasformazione in gradi 
b * PI * bg/180 


'Valore incremento di rotazione (Gradi): 
dig * 5 


di ■ PI * dig/190 ' Trasformazione in RAI) 


'Apertura di un nuovo Schermo con Finestra: 

SCREEN 2,320,200,2,1 

WINDOW 2, "Proiezione Parallela tr id. ",(0, 1 0) - (297, 186) , 1 *2«-S, 2 


PALETTE 0,0,0,0 
PALETTE 2,1,.6,.67 
PALETTE 3,1,1,.13 
PALETTE 1,.4,.6,1 
COLOR ,0 


'Sfondo: nero 
'Colore 1: Rosso 
'Colore 2: Giallo 
'Colore 3: Blu 
'Colore dello sfondo 


0 


'Lettura dati oggetto nelle matrici: 

' xrV. (), yrXO, zr'/.O - Coordinate dei punti 
' 1 s% ( > , le!<() - Collegamenti Linee 

get.objects 


spaziaii 


'Loop principale: 

• **** 4 '********** 


f lagX»0 

WHILE flagXOl 


ili 



projektion 


'Proi€f2ione di tutt i i punti 


CLS 'Canee11azione Finestra 

'Tracciato dell'asse delle coordinate: 

PATTERN &HAAAA 'Motivo di righe: a strisce 

COLOR 2 

FOR i=Ci TO 2 

LINE (xeXUsJSU) ) ,yeX<ls%<i> > > - (xeX ( lsX ( i > > , ye>( < le* < i ) ) > 
NEXT i 

PATTERN &HFFFF 'Motivo di righe = a zig-zag 
COLOR 3 

'Output delle linee (Tracciatura dell'oggetto) 

FOR i=3 TO alX-1 

LINE (xe% ( lsX ( i ) > , ye% (lsX ( i ) ) ) - <xe>: ( leX.< i ) ) , y e>; ( 1 eX < i > > ) 


NEXT ì 

mausX = 0 : flagX=0 
WHILE mausXOl AND flagX=0 

SLEEP 'Attesa di un evento 

'Adozione delle Coordinate del Mouse come 
'nuova origine delle coordinate: 
mausX=MOUSE<0> 

IF rnausX=l THEN 
vl=M0USE<3> 
v2=M0USE(4) 

END IF 


ASC(INKEY**CHR*<0>) 


IF cX=31 THEN 
b=b+di 
flagX = -1 
END IF 

IF cZ=30 THEN 
b=b-di 
flag '/. = -1 
END IF 

IF c*=28 THEN 
a=a+di 
flag V. = -1 
END IF 


'Cursore a sinistra -> 

'Aumento dell'asse y 
'Flag per nuovo disegno 

'Cursore a destra => 

'diminuzione angolo rotazione attorno all'asse y 
'Flag per nuovo disegno 

‘Cursore in alto => 

'aumento angolo rotazione attorno all'asse x 
‘Flag per nuovo disegno 
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IF cX=29 THEN 
a=a-di 
flag'/. = -1 
END IF 


'Cursore verso il basso => 

'diminuzione angolo rotazione attorno all'asse x 
'Flag per nuovo disegno 


‘Se la finestra e' chiusa -> Fine 
IF WINDOUJ < 7) =0 THEN 
flagX=l 
END IF 

WEND 

WEND 

WINfrOW OUTPUT 1 
SCREEN CLOSE 2 

END 


‘Lettura dati oggetto: 

SUB get.objects STATIC 
SHARED apX 
READ apy. 

DIM SHARED xrX (apX>, yrX <ap5«> , zrX (apX) 
DIM SHARED xeX(apX),yeX(apX) 

FOR i=0 TO apX-1 

READ xrX<i>,yrX<i>,zrX<i> 

NEXT i 


'Lettura definizione linea: 

SHARED a IX 

READ a IX 

DIM SHARED lsX(alX)„leX<alX> 

FOR 1=0 TCi aIX-1 
READ lsX(i) , leX(i) 

NEXT i 

END SUB 

'Proiezione di tutte le coordinate spaziali su di un piano: 
SUB projektiori STATIC 
SHARED apX 
SHARED a,b,vl.v2 
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'Calcolo delle costanti per la proiezione: 

si.a = SIN<a) 

co.a = COS(a > 

si,b=SIN(b> 

co.b=COS(b) 

FCiR i = 0 TO apX- 1 

Qx = xr%(i) 

Qy = yrX<i) 

Qz = -zrX (i > ' trasformazione in un sistema sinistro 

xeX<i) = vi ♦ Qx*co.b ♦ Gz*si.b 

ye^(i) = v2 - (Qx*si. a*si.b ♦ Qy*co.a - Qz*si.a*co.b) 

NEXT i 
END SUB 


‘Dati oggetto: 
• ************ 


'Coordinate tridimensionaii del punto: 

'Numero dei punti: 

DATA 36 


'Asse coordinate: 


DATA 

-10, 0, 

0, 80, 0, 

0 

DATA 

0,-10, 

0, 0,90, 

0 

DATA 

0 , 0 , - 

10 , 0 , 0 , 

180 

'Punti oggetto 

: 


DATA 

5,10, 5, 

5,45, 5, 

15,65, 5 

DATA 

25,45, 5, 

25,10, 5. 

5,10,55 

DATA 

5,45,55, 

15,65,55, 

25,45,55 

DATA 

25,10,55, 

13,10, 5, 

13,20, 5 

DATA 

17,20, 5, 

17,10, 5, 

7,33, 5 

DATA 

7,38, 5, 

12,38, 5, 

12,33, 5 

DATA 

18,33, 5, 

18,38, 5, 

23,38, 5 

DATA 

23,33, 5, 

25,33,12, 

25,38,12 

DATA 

25,38,23, 

25,33,23, 

25,33,32 

DATA 

25,38,32, 

25,38,43, 

25,33,43 


'Collegamenti linee: 

'Numero delle linee: 
DATA 40 
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'Asse coordinate: 



TATA 

0, 1, 

2, 

3, 

4, 5 


'Linee Oggetto: 




DATA 

6, 7, 

7, 

8, 

8, 9, 

9, 10 

DATA 

10, 6, 

7, 

9, 

11,12, 

12, 13 

DATA 

13,14, 

14, 

15, 

15,11, 

12, 14 

DATA 

6,11, 

7, 

12, 

8, 13, 

9, 14 

DATA 

10,15, 

16, 

17, 

17,18, 

18, 19 

DATA 

19,16, 

20, 

21, 

21,22, 

22,23 

DATA 

23,20, 

24, 

25, 

25,26, 

26,27 

DATA 

27,24, 

28, 

29, 

29,30, 

30, 31 

DATA 

31,28, 

32, 

33, 

33,34, 

34, 35 

DATA 

35, 32 







Ecco finalmente il nostro primo programma tridimensionale; mandandolo in esecu¬ 
zione ci meraviglieremo di quello che possiamo ottenere con dei mezzi così semplici. 
Sullo schermo appare una casa ed un sistema di coordinate: spostando il puntatore 
con il mouse e premendo il bottone la casa ed il sistema di coordinate verranno can¬ 
cellati e ridisegnati nella nuova posizione, mentre premendo un tasto cursore la casa 
si metterà a ruotare. 


Ciò che abbiamo visto sul monitor è il risultato di quanto abbiamo appreso finora. 
Vediamo quindi un elenco delle possibilità di manipolazione con questo programma: 

tasto sinistro del mouse — posizionamento del sistema di coordinate tridimensionale 
cursore sinistra/destra — rotazione del piano di proiezione attorno all’asse y 

cursore verso alto/basso — rotazione del piano di proiezione attorno all'asse x 


























Sarà ora possibile osservare la casa disegnata da tutti i lati, ruotando il piano di proie¬ 
zione tramite i tasti del cursore. Se, al momento deH’awiamento del programma, l'ogget¬ 
to si troverà al di fuori della finestra, posizioniamolo correttamente tramite il tasto del mouse 

Osserviamo meglio come è possibile che il programma riesca a creare tutto ciò sullo 
schermo. Prima di tutto, come sempre, vengono assegnate alcune variabili di base 
In questo caso si tratta delle coordinate del sistema tridimensionale (vi e v2), dei valor 
di partenza per la rotazione e dei due assi di rotazione (a e b) nonché il valore di, dei 
quale gli angoli di rotazione dovranno venire incrementati o diminuiti quando si aziona 
un tasto cursore. Naturalmente sono possibili tutte le modifiche immaginabili. Sarà ne¬ 
cessario fare attenzione al fatto che tutti gli angoli devono essere forniti in radianti. Questo 
è il motivo per cui questo programma trasforma le indicazioni in gradi in radianti. 

Si predispone un nuovo schermo (risoluzione: 320 x 200, 2 bit-piane = 4 colori) e in 
esso viene aperta una finestra con un gadget di chiusura, un gadget di dimensionamen¬ 
to e una DRAG BAR. Infine attribuiamo ai 4 registri colore disponibili i valori desiderati. 

Dopo queste formalità sarà necessario leggere i dati per l’oggetto da tracciare. Tale 
compito viene eseguito dalla routine "get.objects". In essa definiamo una serie di ma¬ 
trici che contengono dei dati specifici all'oggetto: 

xr°/o( ),yr%( ),zr°/o( ) — coordinate spaziali di tutti i punti dell’oggetto 

xe°/o( ),ye°/o( ) — coordinate proiettate sul piano di tutti i punti dell'oggetto 

ls°/o( ),le°/o( ) — numeri degli estremi di tutte le linee dell'oggetto. 

Vengono però riempite solo le matrici delle coordinate spaziali e degli estremi. Nelle 
matrici delle coordinate vengono memorizzati tutti i vertici dell'oggetto dalle righe DA¬ 
TA che si trovano alla fine del programma. Se ripensiamo ancora per un attimo alla 
organizzazione delle strutture dati in un programma CAD, ne troveremo solo realizzata 
una parte. Il nostro mondo praticamente è composto solo da un oggetto, il quale a 
sua volta è composto da molte linee (per il momento abbiamo tralasciato le superfici). 
Le linee, a loro volta, vengono definite dai loro estremi. 36 punti sono sufficienti per 
memorizzare come una casa, vertice per vertice . I 40 collegamenti tra questi punti 
vengono memorizzati nel secondo gruppo di righe DATA. In esso, per ogni linea, ven¬ 
gono indicati due valori: il numero del punto di partenza e quello del punto di arrivo. 
Il modo in cui sviluppare tale immagine sulla carta, di leggere sistematicamente i vari 
punti nonché collegarli tra loro, verrà illustrato alcuni paragrafi più avanti. Nel caso in 
cui si vogliano tracciare più oggetti, sarà necessario ampliare le matrici di punti e linee, 
finora monodimensionali, con una dimensione aggiuntiva. Essa indicherà a quale og¬ 
getto un punto o una linea appartengano. 

Continuiamo ad occuparci del programma. I punti e le linee si trovano quindi nelle 
matrici corrispondenti e la routine "get.objects” ritorna al programma principale. Quin¬ 
di troviamo un loop WHILE...WEND, nel quale ha luogo l’intero processo di input e 
di disegno. Tuttavia, non c’è ancora nulla da disegnare. I punti del nostro oggetto so¬ 
no presenti per il momento solo in forma tridimensionale, quella che manca è la proie¬ 
zione su di un piano. 
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Otterremo tale proiezione grazie alla routine “projektion”. Ripensiamo per un attimo 
a nizio del presente capitolo: ciò che viene fatto qui non è altro che l'applicazione 
cella formula per la proiezione parallela con la rotazione dei piani di proiezione attorno 
agli assi x ed y. Anche i nomi delle variabili sono identici a quelli visti appunto all'inizio 
cel presente capitolo. 


Effettuiamo mediante un loop una proiezione punto per punto (il numero dei punti 
s- trova nella variabile ap%) sul piano, e memorizziamo i risultati nelle matrici xe%0 
e ye%0- Le variabili di traslazione vi e v2 riguardano lo spostamento semplice sul pia¬ 
no, come abbiamo già visto. Il ritorno nel programma principale ha luogo ai termine 
ai tale ciclo. 


Dal momento che ora conosciamo le coordinate sul piano di ogni singolo punto, di¬ 
sponibili in due matrici, potremo procedere a tracciare tutto ciò sullo schermo. Su di 
esso, come prima cosa, verrà tracciato il sistema di coordinate, con modifica dei colori 
e del pattern delle linee. Tracciamo in un loop ciascuno dei tre assi. Per l'oggetto vero 
e proprio modificheremo di nuovo il colore e normalizzeremo il pattern delle linee. 


Le linee dell'oggetto verranno impostate con un normale comando LINE: 


LINE < xe7 .( 1 s'/. < i ) ) , ye'/. C 1 s%( i ) ) )-(xe - /.( 1 e'/. ( i ) ) , yeV .(i ) ) ) 

Le coordinate di partenza e di fine delle linee vengono determinate come segue: 
la variabile i indica di quale linea si tratta. Essa serve come indice per le matrici ls%0 
ed le%0- I valori determinati in questo modo saranno, come noto, i numeri dei punti 
terminali di ogni linea e verranno a loro volta utilizzati come indici per le matrici xe%0 
e ye%0, che contengono le coordinate del piano desiderate. 


Il resto del programma è molto semplice da comprendere. In un loop interno “WHI- 
LE...WEND" il programma attende un evento (SLEEP) e favorisce, in tale periodo, il 
multitasking. Se un evento ha luogo, dovrà venire determinato di quale tipo si tratta. 
Purtroppo l'AmigaBasic non offre una funzione compatta ed elegante come quella del 
C. Dovremo quindi esaminare tutte le possibilità che ci interessano ed agire di conse¬ 
guenza. Tutto ciò è sufficientemente documentato dal programma. Un'ulteriore anno¬ 
tazione: se si seleziona il gadget di chiusura, l'AmigaBasic chiuderà automaticamente 
la finestra, senza comunicare ciò al programma in Basic oppure senza attendere una 
conferma. Per questo motivo sarà necessario utilizzare un piccolo trucco. Non appena 
l'ultima finestra dello schermo viene chiusa, il contenuto di WINDOW(7) diventa uguale 
a 0 (puntatore alla struttura Window della finestra attuale non più disponibile). Agiamo 
quindi di conseguenza. 


E' ora giunto il momento di approfondire in che modo realizzare a tavolino un pro- 
Drio oggetto e determinare le coordinate dei punti. Questo programma è particolar¬ 
mente adeguato a tracciare un oggetto comunque complesso senza necessità di essere 
modificato, ma creando altre righe DATA. 
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Prendiamo l’esempio della nostra piccola casa. Il problema è ora che per noi è molto 
difficile determinare coordinate tridimensionali da un oggetto proiettato su di un piano. 
Per questo motivo dobbiamo ridurre il problema, producendo semplicemente più viste 
dell’oggetto desiderato. Il numero di queste viste dipende dalla complessità del singolo 
oggetto e dalla capacità di immaginazione spaziale del lettore. Nel caso della nostra sem¬ 
plice casetta, sarebbero sufficienti due viste (una frontale e una dal lato delle finestre). 
L'ottimale sarebbe tuttavia disporre di quattro viste, una per ogni lato (vedi figura 4.19). 



Fìg. 4.19 Quattro viste della casa 






























Ogni vista viene presa frontalmente (quindi nessuna osservazione da un determina¬ 
to angolo, cioè piano di proiezione e vettore di proiezione paralleli agli assi). Contem¬ 
poraneamente dovremo tracciare anche un sistema di coordinate (xy, xz oppure yz). 
In caso di più viste dovremo inoltre fare attenzione al fatto che le unità di tutti gli assi 
aventi lo stesso nome e la loro posizione rispetto all'oggetto coincidano. Il passo suc¬ 
cessivo è la numerazione di tutti gli estremi delle linee, cominciando da 0 (nel nostro 
programma il sistema di coordinate viene tracciato contemporaneamente). In questo 
caso quindi dovremo cominciare da 6). In conclusione, numeriamo allo stesso modo 
le molte linee diverse (possibilmente con un altro colore). (Nel nostro esempio comin¬ 
ciamo con 3, dal momento che si deve tenere conto anche dei tre assi delle coordina¬ 
te). In seguito ci occuperemo anche delle superfici. Cerchiamo comunque di fare 
attenzione ad attribuire lo stesso numero a due punti identici in viste diverse. Diversa- 
mente, ci troveremo di fronte a vertici in sovrappiù. 


Creiamo quindi due tabelle. La prima contiene tutti i punti con le loro coordinate tridi¬ 
mensionali. La seconda conterrà tutte le linee. In essa sono contenuti i numeri di quei 
punti che formano una linea. Ogni punto potrà quindi venire rappresentato con la fre¬ 
quenza desiderata. 


Le tabelle per la nostra casetta potrebbero quindi essere le seguenti: 

Tabella dei punti: 


Nr 

X 

y 

z 

Nr 

X 

y 

z 

Nr 

X 

y 

z 

6 

5 

10 

5 

10 

13 

10 

5 

26 

23 

38 

5 

7 

5 

45 

5 

17 

13 

20 

5 

27 

23 

33 

5 

8 

15 

65 

5 

18 

17 

20 

5 

28 

25 

33 

12 

9 

25 

45 

5 

19 

17 

10 

5 

29 

25 

38 

12 

10 

25 

10 

5 

20 

7 

33 

5 

30 

25 

38 

23 

11 

5 

10 

55 

21 

7 

38 

5 

31 

25 

33 

23 

12 

5 

45 

55 

22 

12 

38 

5 

32 

25 

33 

32 

13 

15 

65 

55 

23 

12 

33 

5 

33 

25 

38 

32 

14 

25 

45 

55 

24 

18 

33 

5 

34 

25 

38 

43 

15 

25 

10 

55 

25 

18 

38 

5 

35 

25 

33 

43 


Tabella delle linee 


Nr 

PI 

P2 

Nr 

PI 

P2 

Nr 

PI 

P2 

Nr 

PI 

P2 

3 

6 

7 

13 

15 

11 

23 

19 

16 

33 

29 

30 

4 

7 

8 

14 

12 

14 

24 

20 

21 

34 

30 

31 

5 

8 

9 

15 

6 

11 

25 

21 

22 

35 

31 

28 

6 

9 

10 

16 

7 

12 

26 

22 

23 

36 

32 

33 

7 

10 

6 

17 

8 

13 

27 

23 

20 

37 

33 

34 

8 

7 

9 

19 

9 

14 

28 

24 

25 

38 

34 

35 

9 

11 

12 

19 

10 

15 

29 

25 

26 

39 

35 

32 

10 

12 

13 

20 

16 

17 

30 

26 

27 




11 

13 

14 

21 

17 

18 

31 

27 

24 




12 

14 

15 

22 

18 

19 

32 

28 

29 
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Paragoniamo queste tabelle con le righe DATA del programma precedente. Se si 
sono sviluppati spesso oggetti di questo genere, si starà già cercando un editor tridi¬ 
mensionale adeguato, con il quale poter manipolare in maniera più semplice questa 
mole di dati. Cerchiamo tuttavia di guardare più avanti, affinché ne valga la pena. 


Un'ultima nota: cerchiamo di inserire nel programma precedente le seguenti righe 
DATA (non dimenticando i dati per il sistema di coordinate): 


' Punti! 

« « y « N V 

Ninnerò punì i : 
DATA 170 


‘ Coordinate: 


DATA 

1 , 

7, 

ir. 

i, 

5, 

12, 

1 , 

3, 

10, 

1 , 

7, 

10 , 

1, 

7, 

4 

DATA 

1 , 

5, 

4 , 

i, 

5, 

2, 

1 , 

7, 

2, 

1 , 

éi , 

9 , 

1 , 

2, 

9 

DATA 

1 , 

* » 

5, 

i , 

6, 

e- 

1 , 

6, 

6, 

1 , 

<*>, 

7 , 

1 , 

&, 

a 

DATA 

1, 

— i 

<b , 

i. 

<5 

7’ 

1 , 

*- 1 

8, 

1 , 

4 , 

14 , 

1 , 


14 

DATA 

1 , 

» 

13, 

i, 

4 , 

13, 

1 , 

4, 

1 , 

1 , 

3, 

1 , 

1, 

3, 

0 

DATA 

1, 

4, 

o, 

i, 

S, 

14, 

1 , 

4- 1 

14, 

l , 

2, 

O, 

1 , 

a, 

0 

DATA 

14, 

12, 


14, 

12, 

1 1 , 


B, 

7 

2, 

9, 

6, 

2, 

10 , 

7 

DATA 

«U , 

V, 

S’r 

8, 

9, 

1 , 

b. 

9, 

17, 

8, 

9 t 

1 1 , 

10, 

10 , 

8 

DATA 

8, 

9, 

6, 

IO, 

10, 

3, 

6, 

B, 

13, 

8, 

13, 

13, 

4, 


1 4 

DATA 

4, 

n 
-■ , 

0, 

4, 

5, 

14, 

4, 

>J 1 

0, 

10, 

S, 

14, 

10, 

er 

0 

DATA 

IO, 

*- , 

14 , 

10, 

2, 

0, 

nn 

, 

^ 1 

14, 

27 , 


0, 

po 
— —1 

5 , 

14 

DATA 

«ri 

» 

5 , 

0, 

DB, 

c 

14, 

28, 

5, 

0 , 

29, 

7, 

14, 

28, 


0 

DATA 

31 , 

*'■ , 

14 , 

31 , 

2, 

0, 

31, 

: 

ó , 

32, 

2, 

3. 

31 , 

6, 

! 4 

DATA 

31 , 

6, 

0, 

27, 

12, 

1 1 , 

27, 

12 , 

3, 

5, 

3 

13, 


3, 

10 

DATA 


3 , 

4 , 

5, 

3, 

1 , 

5, 

1 , 

13, 

5, 

1 , 

10, 

5 1 

1 , 

4 

DATA 

5, 

1 , 

1 , 

6, 

o. 

13, 

6, 

0 , 

10, 

ò, 

0 , 

4 , 

6, 

0, 

1 

DATA 

IO, 

8, 

14, 

10, 

8, 

0 , 

19, 

12 , 

11, 

1?* 

12, 

3. 

B, 

0 , 

13 

DATA 

8, 

0, 

10, 

B, 

o, 

4, 

8, 

0 , 

1, 

9, 

1 , 

13, 

9, 

1 , 

10 

DATA 

9, 

1 , 

4, 

9, 

1, 

1 , 

0 
* , 

» 

13, 

9, 

3 , 

10, 

9, 

3 , 

4 

DATA 

9, 

3, 

1 , 

8, 

4, 

13, 

8, 

4 , 

10, 

8, 

4 , 

4 , 

8, 

4 . 

1 

DATA 

6 , 

4, 

13, 

6, 

4, 

10, 

_6, 

4 , 

4, 

6, 

4, 

1 , 

1 

3, 

1.3 

DATA 


3, 

10, 

23, 

3 

4 , 

» 


1 , 

■v* 

1 , 

13, 

2 - v T 

1 , 

10 

DATA 


1 , 

4 , 

1 

1 , 

1 , 

24, 

0 , 

13, 

24 , 

0, 

10, 

24, 

0 , 

4 

DATA 

24 ; 

0, 

1 , 

19, 


I 4 , 

19, 

7 
*■ 1 

0 , 

19, 

7 ’ 

14 , 

19, 

7 , 

0 

DATA 

26, 

0, 

13, 

26 , 

0, 

10, 

26, 

0 , 

4 , 

2£> , 

O, 

1 , 

27, 

1 , 

13 

DATA 

27, 

1, 

10, 

27, 

1 , 

4, 

27, 

1 , 

1 , 

27, 

3 « 

13, 

27, 

— 

10 

DATA 

27, 

3, 

4 , 

27, 

"T 

1 , 

26, 

4 , 

13, 

26, 

4 , 

10, 

26, 

4, 

4 

DATA 

26, 

4, 

l , 

24, 

4 , 

13, 

24, 

4 , 

10, 

24, 

4 , 

4, 

24, 

4, 

1 
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DATA 

7 , 

7 f 

13, 

7 , 

* 1 

1 , 

25, 

4 * 

i , 


7 9 

1, 

18, 

7 , 

14 

DATA 

18, 

7 , 

o, 

18, 

6, 

14, 

18, 

6, 

0, 

15, 

12, 

11 , 

15 , 

12, 

3 

DATA 

•18, 

12, 

11 , 

18, 

12, 

1 

18, 

P, 

14, 

18, 

6, 

0, 

20, 

17, 

1 1 

DATA 

20, 

12, 

3, 

20, 

a. 

14, 

20, 

8, 

0, 

28, 

8, 

14, 

28, 

a, 

0 

DATA 

26, 

12, 

11, 

26, 

12, 

1 

17 , 

8, 

14 , 

17 , 

a, 

O, 

28, 

io, 

1 1 

DATA 

30, 

7 , 

12, 

30, 

7 , 

■4- » 

28, 

10, 

4 , 

6, 

8, 

14 , 

6, 

8, 

0 


Linee: 

' Numero Linee: 

DATA IV? 

Col 1 etjanu • i » t 
DATA 0, I, 

1 , 


- 1 * 1 

1 

4, 


DATA 

5 

6, 

6, 

7, 

7 1 ^ » 

G, 9, 

9, 

1 0 

DATA 

10 

11, 

1 ! , 

a. 

12, 15, 

17, 16, 

1!4, 

17 

DATA 

18 

17, 

19, 

20, 

20, 21, 

21, 18, 

*' ** » 

73 

DATA 

23 

24, 

24, 

'“'ET 

oc nn 

•4.0, » 

26, 27, 

27, 

28 

DATA 

28 

29, 

£9, 

26, 

158, 64, 

30, 31, 

159, 

65 

DATA 

32 

34, 

C»-. j 

35, 

36, 37, 

38, 39, 

40, 

41 

DATA 

42 

43 , 

— ' ? 

44 , 

44, 46, 

46, 48, 

48, 

50 

DATA 

50 


* J 4- 9 

54 , 

54, 56, 

56, 58, 

58, 

60 

DATA 

60 

64, 

64 , 

66, 

66, 31, 

31,168, 

168, 

26 

DATA 

28 

45, 

45, 

47, 

47, 49, 

49, 51, 

5! , 

53 

DATA 

53 

55, 

w ~-J , 

57, 

57, 59, 

59, 61, 

61 , 

65 

DATA 

65 

67, 

67, 

30, 

30,169, 

169, 29, 

66, 

67 

DATA 

64 

65, 

60, 

61 , 

68, 72, 

72, 76, 

76, 

84 

DATA 

84 

SS, 

88, 

72, 

92, 96, 

96,100, 

100, 

68 

DATA 

69 

73, 

73, 

77, 

77, 85, 

85, 89, 

89, 

93 

DATA 

93 

77, 

77, 

101 , 

101, 69, 

70, 74, 

74, 

78 

DATA 

78 

86, 

86, 

90, 

90, 94, 

94, 98, 

98, 

102 

DATA 

102 

70, 

' À 1 

75, 

75, 79, 

77, 87, 

8/, 

91 

DATA 

91 

75, 

75, 

79, 

99,103, 

103, 71, 

140, 

141 

DATA 

104 

,108, 

108, 

1 12, 

112,120, 

120,124, 

124, 

128 

DATA 

128 

,132, 

173, 

136, 

136,104, 

105,1 09 , 

109, 

1 13 

DATA 

1 13 

,121 , 

171 , 

2 25 f 

125,129, 

129,133, 

133, 

137 

DATA 

137 

,105, 

106, 

1 10, 

110,114, 

114,122, 

122, 

126 

DATA 

126 

,130, 

130, 

134, 

134,138, 

138,106, 

107, 

1 1 1 

DATA 

1 11 

,115, 

115, 

123, 

123,127, 

127,131, 

131 , 

1 • >J 

DATA 

135 

,139, 

1 39, 

107, 

142,143, 

48, 80, 

80, 

145 

DATA 

150 

,152, 

152, 

no. 

82,162, 

162,116, 

118, 

144 





DATA 144,146, 
DATA B1,149, 
DATA 119,145, 
DATA 62, 62, 

DATA 68, 69, 
DATA 78, 79, 
DATA 92, 93, 
DATA 102,103, 

DATA 112,113, 
DATA 126,127, 
DAT A .136,137 , 


4.4.2 Proiezione centrale 

Anche se quanto realizzato finora ci entusiasmerà, rimangono tuttavia alcune que¬ 
stioni da eliminare. Eccone una da migliorare. 

Se osserviamo attentamente l’ultimo programma, noteremo immediatamente che la 
nostra casetta appare più grande verso il fondo, benché la parete posteriore sia esat¬ 
tamente uguale a quella anteriore. E’ chiaro che si tratta di un illusione ottica, dal mo¬ 
mento che siamo abituati a vedere degli oggetti sempre più piccoli, man mano che 
ci allontaniamo da essi. Un esempio classico sono i binari ferroviari, i quali, notoria¬ 
mente paralleli, sembrano incontrarsi all’orizzonte. Tale fenomeno viene chiamato an¬ 
che deviazione prospettica. Al momento della proiezione parallela, tale fenomeno non 
è stato tenuto in debita considerazione. Il nostro occhio (o meglio, il nostro cervello) 
è abituato all’effetto prospettico e ne trae la conclusione contraria: se un oggetto (la 
parete posteriore della casa) che si trova dietro un altro oggetto (la parete anteriore) 
ne possiede la stessa dimensione, in realtà esso sarà più grande di quello anteriore. 
Questo è il motivo per cui la parete anteriore ci sembra più grande. 

Come eliminare questo difetto? Una tecnica molto diffusa è l’introduzione del punto 
di fuga (alcuni pittori inseriscono anche più di un punto di fuga nelle loro opere, per 
farle apparire più realistiche. Si tratta comunque di effetti che possono venire ottenuti 
matematica, anche con un solo punto di fuga). 


154,156, 

156,158 

151,153, 

153, 81 

145,147, 

155,157 

164,165, 

165,166 

70, 71, 

72, 73 

84, 85, 

86 , 87 

94, 95, 

96, 97 

104,105, 

106,107 

114,115, 

120,121 

128,129, 

130,131 

138,139 



158,160, 

49, 81 

83,163, 

163,117 

157,159, 

159,161 

166,167, 

167,164 

74, 

75, 

76, 77 

88 , 

89, 

90, 91 

98, 99, 

100,101 

108,109, 

110,111 

1 22,1 2 ->, 

124,125 

172,133, 

134,175 





I lati allungati di tutti gli oggetti che noi osserviamo nella natura, sembrano incontrar¬ 
si in lontananza in un solo punto, il punto di fuga (chiamato anche centro prospettico). 
Ora è nostra intenzione tenere conto di tale punto di fuga al momento della proiezione 
delle coordinate spaziali su di un piano. Ciò accade con la cosiddetta proiezione cen¬ 
trale o prospettica. 

In ogni caso, il nostro punto di fuga si trova da un'altra parte. Esso rappresenta la 
posizione nella quale sì trova l’osservatore oppure il suo occhio (o la macchina fotogra¬ 
fica), cioè la posizione nella quale ricadono tutti i raggi luminosi dell'oggetto osservato 
(vedi fig. 4.20). 



Centro 

prospettico 


Y 


Fig. 4 20 Proiezione centrale 

Immaginiamo di guardare attraverso una lastra di vetro opaca. Su tale lastra sarà 
quindi presente, anche se lattiginosa, una immagine del mondo circostante. I raggi lu¬ 
minosi partono quindi dall'oggetto stesso, per poi attraversare la lastra di vetro e giun¬ 
gere infine al nostro occhio. 

La lastra di vetro rappresenta la pellicola oppure il nostro schermo. A noi interessa 
sapere in quale posizione i raggi incontrano la lastra di vetro. Ci troviamo di fronte allo 
stesso problema incontrato nel caso della proiezione parallela. La differenza è che ora 
'aggi non sono paralleli, come lo erano in tale caso, ma si incontreranno in un punto. 
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Ipotizziamo che il centro della proiezione (cioè il punto di fuga) si trovi nel punto 
Z(Z x ,Z y ,Z y ). Il punto tridimensionale da proiettare possiede le coordinate Q(Q )( ,Q y ,Q z ). 
Dall'equazione di una retta in forma vettoriale: 

P = P 0 + s*a 


potremmo ottenere quanto segue: Z si trova sulla retta e viene utilizzato per P 0 . A 
questo punto manca solo il vettore a che otterremo tramite il collegamento dei punti 
Z e Q: 



Con ciò otterremo la seguente equazione di un raggio (di una retta) dal punto del¬ 
l’oggetto al centro: 



oppure, sotto forma di parametri 

Px = Z x + s (Qx-ZJ 
Py = z y + s*(Q y -Z ) 

P z = Z z + s*(Q z -Z z ) 


Come per la proiezione parallela, è il punto P ad essere oggetto della ricerca sul 
piano di proiezione, cioè il punto nel quale la retta interseca il piano (la lastra di vetro). 
A questo punto ci interessa sapere quale valore utilizzare per s, in modo che P si trovi 
veramente sul piano di proiezione. Anche in questo caso sarà facile se impostiamo la 
lastra di vetro al piano xy. Ciò, per il punto P, significa che la coordinata Pz è uguale 
a 0. Quindi, dalla terza equazione, otterremo: 

0 = Z z + s* (Q z -Zj) < = > 


s = 


Zz 

Qz-Zz 


Trasportiamo ciò nelle prime due equazioni e trasformiamole leggermente: 


Px = 


Z x -Z 7 


Qx-z 


X 


e 
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Q z -Z z 






Py = Z y - Z z 


A 

Qz 


iA 

-z z 


Risparmiamoci per questa volta la lunga procedura di trasformazione e vediamo im¬ 
mediatamente il risultato: 

Z x *Q z - Q x *Z z 
Q z • Z z 

Z/Q z - Q/Z z 
Q z -Z z 

dove: 

P X ,P — coordinate del punto proiettato sul piano 

Q x , Ó y , Q z — coordinate del punto spaziale da proiettare 
Z x , Z yt Z z — centro della proiezione 


Affrontiamo ora la matrice di trasformazione corrispondente. Nella realtà essa non 
è molto semplice e per essa abbiamo bisogno in ogni caso delle coordinate omoge¬ 
nee, che fortunatamente avevamo introdotto in precedenza. Eccola: 

P = (Px'Pn Py‘Pn Pz*Pn Pn) 

/-z z 0 

= (Q x *Q n Q y *Q n Q z *Qn Qn) * ( Z f 

\ o o y 

Tale matrice, abbreviata, sarà: ZP(Z x ,Z y ,Z z ). I valori P n e Q n sono i fattori "omoge¬ 
nei" che, come noto, devono venire aggiunti con le coordinate omogenee (al momen¬ 
to dell’introduzione delle coordinate omogenee li abbiamo chiamati "n”). Normalmente 
essi vengono impostati a 1 (nei casi seguenti, anche Q n potrebbe venire impostato 
uguale a 1, ma vogliamo determinare una formulazione generale, e allora Q n potreb¬ 
be provenire da un’altra trasformazione; di conseguenza non sarebbe più uguale a 
1). Tuttavia, in questo caso, essi hanno un ruolo ben preciso, anche se solo provviso¬ 
riamente. Infatti P n non è uguale a 1. Cerchiamo di controllare brevemente se la ma¬ 
trice è esatta. La seguente verifica dovrebbe servire anche come esempio, nel momento 
in cui si volessere effettuare combinazioni di trasformazioni (per esempio proiezione 
centrale con rotazione ecc): 




Il risultato dell’espressione precedente è: 

P = (Px*Pn Py*Pn P Z *Pn Pn) 

= (-Q x *Q n *Z z + Q z *Q n *Z x -Q y *Q n *Z z + Q z *Q n *Z y 0 Q z *Q n -Q n *Z z z) 
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Se si hanno problemi con il calcolo di questa matrice, si potrà consultare l’appendice. 


Al fine di calcolare i valori reali per P x , P y e P z da questa matrice, dovremo dividere 
i singoli elementi della matrice per P n (vedi definizione delle coordinate omogenee). 


Dall'equazione per P possiamo ottenere i seguenti rapporti (si tratta semplicemente 
delle equazioni corrispondenti dei parametri): 

P x *P n = -Q x *Q n *Z z + Q z *Qn*Z x 

P/P n = -Q y *Q n *Z z + Q z *Q n *Z y 

P z *P n = 0 

P n = Q z *Q n - Q n *Z z 


Trasformiamola come segue. A titolo di esempio, trasformiamo la prima tramite l'ultima: 

= -Q x *Qn*Z 2 + Q z *Qn*Z x < = > 

= -Q x *Qn*Z z + CVQ n «Zx < = > 

Pn 

. ~Qx*Q n *Z z + Qz*Qn‘Z x ^ , > 

Q z *Q n - Q n *Z z 

_-Q x *Z z + Q z *Z x _ 

Q z -Z z 

Si tratta esattamente della formula che avevamo precedentemente ottenuto. La se¬ 
conda equazione viene risolta esattamente allo stesso modo e fornirà ugualmente il 
risultato desiderato. La terza viene trasformata ancora più semplicemente: 

P z *P n =0 < = > 

P z = 0 


Px*Pn 

Px 

Px 

Px 


Vediamo quindi che il trattamento della proiezione centrale diventa molto più compli¬ 
cato della rappresentazione parallela. Ciò è motivato anche dal fatto che in questo ca¬ 
so abbiamo a che fare con una divisione. Una divisione è possibile solo con coordinate 
omogenee, grazie all'aiuto dell'elemento omogeneo n (oppure, in questo caso, Q n o 
Pn)- 

Tralasciamo per il momento un programma di esempio, rimandandolo a quando sa¬ 
remo più esperti nelle trasformazioni nel mondo tridimensionale. Infatti, già al momen¬ 
to della proiezione parallela, abbiamo dovuto fare ricorso alle rotazioni, cosa che per 
il momento vogliamo evitare. 







r 




4.5 Come creare il movimento: trasformazioni anche nello spazio 


In questi ultimi paragrafi abbiamo visto come è possibile proiettare immagini tridi¬ 
mensionali su di uno schermo bidimensionale. Nella realizzazione di programmi, tutta¬ 
vìa, abbiamo sentito la mancanza della possibilità di trasformazioni nello spazio 
(ricordiamoci della rotazione necessaria nel programma per la proiezione parallela). 


D’altra parte abbiamo approfondito debitamente le trasformazioni sul piano e vor¬ 
remmo restare su questa base. Cerchiamo quindi di approfondirla. 


4.5.1 Spostamenti, ingrandimenti, rotazioni 

All'inizio del capitolo "Proiezioni" abbiamo già visto come trasformare le matrici di 
trasformazione bidimensionali in forma di coordinate tridimensionali. Cerchiamo ora di 
ampliare tali matrici, in modo che funzionino anche nello spazio. Cominciamo quindi 
dalla trasformazione più semplice, la messa in scala (ingrandimento oppure riduzione). 


La matrice bidimensionale per questa operazione era: 
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oppure, in coordinate omogenee: 



Nello spazio tridimensionale deve venire incorporato un fattore di ingrandimento S z 
per la coordinata z. La matrice relativa, in coordinate omogenee, è: 



Al fine di ingrandire un punto P(x,y,z) con questa matrice, utilizzeremo, come sul pia¬ 
no, la moltiplicazione di matrici, che rappresenta uno dei nostri più importanti strumenti 


di lavoro (per la definizione della moltiplicazione fra matrici, ved. appendice): 

P’ = (x'*n‘ y’*n’ z’*n' n') 

= P(x,y,z) * S&.Sy.SJ 



= (x*n y*n z*n n) * 


= (x*S x *n y*S y *n z*S z *n) 


e dal momento che n può venire impostato uguale a 1 : 
= (x*S x y*S y z*S z 1) 


Anche le forme parametriche risultano più semplici: 

x’ = S/x 
y’ = S/y 
z’ = S z *z 
(n' = n) 


Per la traslazione (spostamento) abbiamo bisogno in ogni caso delle coordinate omo¬ 
genee. La matrice del piano era: 
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Nello spazio, l’amplieremo come segue: 


T(Tx.T y ,Tz) = 



1 0 0 0 \ 
0 10 0 1 


Le equazioni parametriche corrispondenti saranno quindi: 
x’ = x + T* 

y’ = y+T y 

z' = z + T z 
(n* = n) 

A questo punto ci mancano solo le rotazioni (se prescindiamo dalle molte altre tra¬ 
sformazioni possibili). Qui la faccenda si complica. Dal punto di vista bidimensionale, 
una rotazione veniva definita univocamente come rotazione attorno al punto 0 (oppu¬ 
re, più in seguito, attorno ad un altro punto a piacere). Nello spazio, l'enunciato "rota¬ 
zione attorno ad un punto" non è più sufficiente. Infatti esistono infinite traiettorie, lungo 
le quali sarà possibile effettuare la rotazione. Nello spazio dovremo quindi indicare un 
asse attorno al quale vogliamo far ruotare l'oggetto. Solo a questo punto, le direzioni 
di rotazione si riducono a due: in senso orario o in senso antiorario. 

Naturalmente possiamo pensare a un asse a piacere attorno al quale un'immagine 
può venire ruotata. Per semplicità, tuttavia, limitiamoci ai tre assi delle coordinate. Ve¬ 
dremo in seguito che con tali basi saranno possibili anche rotazioni attorno ad un asse 
a piacere. 

Effettuiamo quindi il trasferimento delle formule dal bidimensionale al tridimensiona¬ 
le. Ipotizziamo che il plano bidimensionale si trovi nel sistema di coordinate tridimen¬ 
sionali esattamente sul piano xy (la coordinata z per tutti i punti del piano è uguale a 0). 

Una rotazione del piano bidimensionale, trasportata nello spazio, sarebbe quindi una 
rotazione attorno all’asse z. Dal momento che la matrice di rotazione bidimensionale 
antioraria era la seguente in coordinate omogenee (a fornisce l’angolo di rotazione): 

( cos(a) sin(a) 0 \ 

-sin(a) cos(a) 0 I 

0 0 1 / 

potremo esprimere la rotazione spaziale attorno all’asse z molto semplicemente tra¬ 
mite la seguente matrice: 



cos(a) sin(a) 0 0 


-sin(a) cos(a) 0 0 

0 0 10 

0 0 0 1 






oppure, sotto forma di parametri per la rotazione del punto P(x,y,z): 


x’ = x*cos(a) - y*sin(a) 

y' = x*sin(a) + y*cos(a) 

z’ = z 

(n' = n) 


Come vediamo, la coordinata z, logicamente, non viene modificata. 




Fig. 4.23 Rotazioni attorno agli assi nello spazio 

Resta ora la descrizione delle rotazioni attorno agli assi x ed y. Tutte le rotazioni de¬ 
vono avere luogo in senso antiorario. Per fare ciò, dovremo guardare dal lato positivo 
verso la punta di un asse (vedi figura 4.23). Le matrici di rotazione saranno quindi ana¬ 
loghe alla prima, per la rotazione attorno all’asse x: 



con la forma parametrica per la rotazione di un punto P(x,y,z): 
x' = x 

y' = y’cos(a) - z*sin(a) 
z = y*sin(a) + z*cos(a) 


e attorno all'asse y: 
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con la forma parametrica per la rotazione di un punto P(x,y,z): 


x' = x*cos(a) + z*sin(a) 

y’ = y 

z’ = -x*sin(a) + z*cos(a) 


La matrice di trasformazione per una rotazione attorno a tutti gli assi con gli angoli 
a (asse x), b (asse y), e c (asse z) con la sequenza di rotazione attorno a x, attorno 
a y e attorno a z potrà venire calcolata tramite la seguente moltiplicazione tra matrici: 

R x (a) y (b) z (c) = R x (a) * R y (b) * R z (c) 


Abbiamo calcolato il risultato, che è il seguente: 

cos(b)cos(c) cos(b)sin(c) 


R x (a) y (b) z (c) = 


sin(a)sin(b)cos(c) 
-cos(a)sin(c) 
cos(a)sin(b)cos(c) 
+ sin(a)sin(c) 

0 


sin(a)sin(b)sin(c) 
+ cos(a)cos(c) 
cos(a)sin(b)sin(c) 
-sin(a)cos(c) 

0 


-sin(b) 0 

sin(a)cos(b) 0 
cos(a)cos(b) 0 
0 1 


Se moltiplichiamo questa matrice gigantesca con quella di un punto, tale punto ver¬ 
rà ruotato in tutte e tre le dimensioni. Le equazioni di parametri risultanti saranno: 

x' = x*A + y*B + z*C 

y’ = x*D + y*E + z*F 

z’ = x*G + y*H + z*l 


Per i parametri A, B, ... dovremo immettere quanto segue: 

A = cos(b) * cos(c) 

B = cos(b) * sin(c) 

C = -sin(b) 

D = sin(a) *sin(b) *cos(c) - cos(a) * sin(c) 

E = sin(a) *sin(b) * sin(c) + cos(a) *cos(c) 

F = sin(a) *cos(b) 

G = cos(a) * sin(b) * cos(c) + sin(a) *sin(c) 

H = cos(a) * sin(b) * sin(c) - sin(a) *cos(c) 

I = cos(a) * cos(b) 


Nel caso in cui si voglia modificare la sequenza delle rotazioni (es., dapprima attorno 
all’asse z) si dovrà calcolare nuovamente la matrice. Con sequenze uguali potremo 
invece naturalmente lasciare uguali a zero uno o due angoli. A tal punto l'oggetto non 
verrà più ruotato attorno all’asse. Con ciò infatti alcuni seni e coseni delle equazioni 
precedenti diverrebbero sin(O) = 0 e cos(O) = 1. 
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Volendo proiettare su di un piano i punti ruotati, per poterli rappresentare sul video, 
dopo la rotazione dovranno venire sottoposti alla matrice di proiezione corrisponden¬ 
te. Ciò avrà luogo separatamente. 

Vediamo ora con il seguente programma in C di trasformare in pratica ciò che fin'o- 
ra ci è parsa grigia teoria. Esso utilizza la maggior parte delle trasformazioni fin’ora svi¬ 
luppate, compresa la proiezione centrale. A tale scopo esso impiega la struttura dati 
di un sistema tridimensionale CAD precedentemente citata, con la suddivisione in mondi, 
oggetti, linee, punti ecc. Ciascuna di queste unità viene rappresentata del programma 
con una o più strutture. 


/»•»♦ * t. **** X M: *** » * * » * » * :* **** :* *: M ***** * * / 


/** **/ 

/** Grande Dento per la **/ 

/XX **/ 

/** ANIMAZIONE TRIDIMENSIONALE **/ 

/** **/ 

/** con **/ 

/** Proiez. centrale, Rotazione **/ 

/** Traslazione, Scala **/ 

/** **/ 

/XX Organizzazione: **/ 

/** modello in filo metallico **/ 

/*.* orientato all’oggetto **/ 

/** **/ 

/** Axel Plenge **/ 

/XX XX/ 


/**************************************/ 


«include <exec/types.h> 

«include Cintuition/intuition.h> 
«include <1ibraries/mathffp.h> 


/X Dichiarazioni delle funzioni (solo per Compilatore Azteci: X/ 
/X a scelta anche: «include <functions.h> */ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


VOID 


CIearScreen C); 

VOID 


DrauO ; 

VOID 


ExitO; 

struct 

Messagc t 

GetMsg <); 

VOID 


Move <1 ; 

struct 

Library * 

OpenLibrary<); 

struct 

Screen X 

OpenScreen O; 

struct 

Window X 

OpenWindowC > f 

VOID 


Repl yMsg O! 

VOID 


ScreenToFront< > 

VOID 


SetAPenO; 

VOID 


SetRGB4(); 

LONG 


Malto; 


/X ::***********************************************************/ 
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struct IntuitionBase *IntuitionBase 
struct GfxBase tGfxBase; 

LONG $MathBase; 


/X Struttura por 1' ini z i al i zzaz ione di duo nuovi schermi: */ 
/XXXXXXXXXXXXXXXXi XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


struct NeoScreen NouorBi1 dschirm = 


0, 

/* 

Coordinata x superiore sinistra 

*:/ 


/X 

Angolo (sempre 0) 

*/ 

o, 

/X 

Coordinata y superiore sinistra 

%/ 


/X 

Angolo 

XV 

640, 

/* 

Larghezza schermo 

*/ 

256, 

/* 

Altezza schermo 

*/ 

*“ 1 

/* 

Numero piani di immagine 

%/ 

0, 

/* 

Colore dei dettagli 

x./ 

1, 

/* 

Colore delle superfici 

X/ 

HIRES, 

/* 

Modo grafico: 640x256 

X/ 

CL'STOMSCREEN, 

/* 

Tipo schermo 

X/ 

NULL j 

/X 

Nessun nuovo Font 

X/ 

"FY oi <ifZ i onè centrale' 

\/\ 

• Testo di i nt estaz ioti e schermo 

X/ 

NULL, 

/X 

Inutilizzato, sempre ZERO (NULL) 

X/ 

NULL, 

/* 

Nessun BitMap proprio 

X/ 


Struttura per 

1’iniziai izza;ione di due nuove finestre */ 

* :» :* * *:♦ t :* % * * 1:* :♦ * * *********»»#»*#*#»***»«»****#***/ 

uct NvwWindow 

NeuesFenster = 


0, 

/•♦• Coordinata x angolo super, sin. 

X/ 

10, 

/* Coordinata y angolo super, sin. 

X/ 

640 , 

/X Larghezza finestra 

X/ 

246 , 

/X Altezza finestra 

X/ 

0 , 

/X Colore dei dettagli 

X/ 

1» 

/X Colore delle superfici 

X/ 

M0USEBUTT0NS ! 

/*: Risposta a pressione tasto Mouse 

X/ 

RAWKEY, 

/X e tasto 

X/ 

ACTIVATE ! 

/X Selezione elementi e tipo 

X/ 

BORDERLESS! 

/X della finestra: senza bordi 

♦ / 

NOCAREREFRESH 

* '/X nessuna segnalazione di Refresh 

X/ 

RMBTRAR, 

/X Nessuna operazione da menu 

X/ 

NULL, 

/X nessun gadget proprio 

X/ 

NULL, 

/X CheckMark 

X/ 

NULL, 

/X Testo di intestazione finestra 

XV 

0, 

/X Indirizzo struttura schermo 

%/ 


/X deve venire inizializzato entro 

X/ 


/X il programma dopo 

X/ 


/X l'apertura di uno 

X/ 


/X schermo 

1 

NULL, 

/X nessuna finestra SuperBitmap 

*/ 

640 , 

/X Larghezza minima 

X/ 

246 , 

/X Altezza minima 

X/ 

640, 

/X Larghezza massima 

X/ 

256, 

/X Altezza massima 

XV 

CUSTOMSCREEN, 

/X Tipo schermo 

X/ 
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struct 

struct 

struct 

struct 


Screen 4Bi 1 dschi rm<23 ; 
Window 4Fenster<21j 
RastPort 4RastPort[21j 
IntuìMessage 4Messagej 


/:*: Colori tavolozza: 4/ 

LONG pai etteC41C31 = 

/ 

\ 

< 0, 0, 01, <15, O, 1>, 

< 0, 4,15J, <14,10, 1} 

>; 


VDID mai ni) 

< 

LONG do_prograni( ) ; 


LONG fehler; 
ULONG i; 


/4 Per le abbrevi a:ioni dei tipi, ved. 4/ 
/4 i File Exec-Include-Fi1 e: types.h 4/ 


A4 Apertura delle library di Intuition, Grafiche e Mathe 4/ 
pr i nt f < "3~D—Proi ez ione Centrale / C-Derno\n“); 

IntuitionBase = 

istruct IntuitionBase 4)OpenLibrary("intuition.1 1 brary“,OLI ; 
if ( IntuitionBase == NULLI fehler = 1; 

el se 
t 

GfxBase = 

(struct GfxBase 4)OpenLibrary("graphics.1ibrary",OL); 
if (GfxBase == NULL) fehler = 2; 

else 

< 

MathBase = 

(LONG 4) OpenLi brar y ( "matti ffp. library", OL) ; 
if (MathBase == NULL) fehler = 3; 

el se 

< 

/4 Apertura schermo 0: 4/ 

di 1 dschi rnìCOl = 

(struct Screen 4)OpenScreen(tNeuerBi1dschirm); 
if (BildschirmCOl == NULL) fehler = 4; 

el se 

A4 Impostazione tavolozza colori: 4/ 
for (i=0j i < 4 ; i++) 

SetR6B4(&Bi ldschirmCOl— >Vi euPor t, i , 

paletteCiK03, paletteCiUlI, pai etteCi1<21); 

/4 Apertura finestra 0: 4/ 

/4 Aggiungere indirizzo della Struttura di Screen: 4/ 
NeuesFenster.Screen = Bi1dschirmCOlj 
FensterCOl = 

(struct Windou 4) OpenWi ndow(S<NeuesFenster ) ; 
if (FensterCOl «= NULL) fehler ■= 5; 


1 » 
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else 

{ 

RastPortC03 “ Fenster COI—>RPcrrt ; /% RastPort merfcen X/ 

/X Apertura schermo 1: %f 

Bi1dschirmC13 = 

(struct Screen *)OpenScreen(iNeuerBi 1 dschiriti) ; 
if (Bil dschi rmC13 == NULO fehler = 6; 

el se 
{ 

/X Irnpostazione tavol. colori: %/ 
for Ci=0; i<4j i++) 

SetRGB4 C !<Bi ldschimnCl 3—>Vi ewPort, i , 

pai etteCi3[03, pai etteCi3C13 , pai etteCi3C233 ; 

/* Apertura finestra 1: X/ 

/X Aggiungere indirizzo della Struttura di Screen: */ 
NeuesFenster.Screen = Bi1dschirmC13 ; 

FensterC13 = 

(struct Wihdow OpenWindou(t<NeuesFenster ) ; 


if (FensterC13 ■* NULL) 
el Se 
{ 


fehler * 7; 


RastPort C 13 = FensterC13- 

>RPort; /% RastPort merken 

*/ 

fehler = do__pr ogr arn O ; 

/* 

Chiamata del pro¬ 

*/ 


/* 

gramma vero e proprio 

X/ 

CloseWindow<FensterC 1 3 ) ; 

> 

/X 

Chiusura finestra 1 

XV 

CIoseScreen(Bi1dschirmC13) 

i /* 

Chiusura Screen 1 

X/ 

CloseWindow(Fenster CO3) ; 

\ 

/* 

Chiusura finestra 0 

X/ 

CIoséScreen(BildschirmC03 ); 

/* 

Chiusura Screen 0 

X/ 

CloseLibrary(MathBase) ; 

) 

/% 

Mathe-Library dose 

X/ 

CIoseLibrary(GfxBase) ; 

j 

/% 

Graphics-Lib. dose 

X/ 

CloseLibrary(IntuitionBase); 

/X 

Intuì tion-Lib. dose 

X/ 

Exi t ( fehier ) ; 

/X 

Uscita con cod.errore 

X/ 
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/ * X i: 1 X X X X X X 111 XX X X X X * * X X X / 
/X Programma principale X/ 
/XXXXX t XXXXXXXXXXXXXXXXXX/ 


/X Variabili globali e strutture: XV 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X Addizione di 90 ad un angolo w con: 0 < = w < 360 */ 
/X anche l'angolo risultante si troverà' fra 0 e 360 XV 
/% (Per il calcolo del coseno si e’ utilizzata la %f 
/X seguente Tabella seno) XV 


ttdefine W_PLUS_90 ( w> < <Cw) >= 270)? <w)~270 : <w)+90 > 


/X Tabella Seno/Coseno: X/ 

/X La tabella contiene, a distanze di l Grado XV 
/X i valori di seno da 0 a 359 gradi, sempre X/ 
/X moltiplicati per 2~15=32768. XV 
/X II bit piu' alto e' quello del segno. XV 
/X Per la determinazione del Coseno si XV 
/X dovranno aggiungere sempre, in precedenza, XV 
/X 90 gradi all'angolo. XV 


WORD sinusC 3 = 


0x0000, 

0x023C, 

0x0478, 

0x0£B3, 

OxOBEE, /* 

0- 4 

Gr ad i 

X/ 

0x0B28, 

OxODG1, 

0x0F99, 

0x11D0, 

0xl40£, /* 

5- 9 

Gr adi 

XV 

0/163A, 

Ox186C, 

Ox1A9D, 

OxlCCB, 

Ox1EF7, /* 

10-14 

6r ad i 

X/ 

0x2121, 

0x2348, 

0x25£C, 

0x278E, 

0x29AC, /* 

... 


XV 

0x2BC7, 

0x2DDF, 

Ox2FF3, 

0x3203, 

0x3410, 




0x3618, 

0x381D, 

0x3AlC, 

0x3C18, 

0x3E0E, 




0x4000, 

0X41ED, 

0x43D4, 

0x45B7, 

0x4794, 




0x496B, 

0x4B3D, 

0x4D08, 

0x4ECE, 

Ox508E, 




0x5247, 

0x53FA, 

0x55A£, 

0x574C, 

0x58EB, 




0x5A82, 

0x5C13, 

0x5D9D, 

OxSFlF, 

0x£09A, 




0x£20E, 

0x637A, 

0x£4DE, 

0x£63A, 

0x£78E, 




0x68DA, 

0X6A1E, 

0x£B5A, 

0x£C8D, 

0X6DB8, 




0x6EDA, 

0x6FF4, 

0x7104, 

0x72OD, 

0x730C, 




0x7402, 

0x74EF, 

0x75D3, 

0X76AE, 

0x7700, 




0x7848, 

0x7907, 

0x79BC, 

0x7A£8, 

0x7B0B, 




0X7BA3, 

0x7C33, 

0x7CB8, 

0x7D34, 

0x7DA6, 




0x7E0E, 

0x7E£D, 

0x7ECl, 

0x7F0C, 

0X7F4C, 




0x7F83, 

0x7FB0, 

0x7FD3, 

0x7FEC, 

0x7FFB, 




0X7FFE, 

0x7FFB, 

0x7FEC, 

0x7FD3, 

0x7FB0, /* 

90-94 

Gradi 

XV 

0x7F83, 

0x7F4C,- 

0x7F0C, 

0x7ECl, 

0x7E£D, /* 

95-99 

Gr adi 

X/ 

0x7E0E, 

0x7DA6, 

0X7D34, 

0x7CB8, 

0x7033, /* 

... 


XV 

0x7BA3, 

Ox7BOB, 

0x7A£8, 

0x79BC, 

0x7907, 




0x7848, 

0x7780, 

0x7£AE, 

0x75D3, 

0X74EF, 




0x7402, 

0x730C, 

0x7200, 

0x7104, 

0x6FF4, 




OxGEDA, 

0x£DBB, 

0x£C8D, 

0x£B5A, 

OxGAlE, 




0x68DA, 

0x678E, 

0x££3A, 

0x64DE, 

0x£37A, 
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0x620E, 

0x609A, 

OxSFlF, 

0X5D9D, 

Ox5C13, 





0x5AB2, 

0x58EB, 

0x574C, 

0x55A6, 

Ox53FA, 





0x5247, 

OxSOSE, 

0x4ECE, 

0x4D08, 

0x4B3D, 





0x496B, 

0x4794, 

0x45B7, 

0x43D4, 

0x41ED, 





0x4000, 

OxSEOE, 

0x3C10, 

OxSAlC, 

0x381D, 





0x3618, 

0x3410, 

0x3203, 

0x2FF3, 

0x2DDF, 





0x2BC7, 

0x29AC, 

0x27BE, 

0x256C, 

0x2348, 





0x2121, 

Ox1EF7, 

OxlCCB, 

Ox1A9D, 

Ox186C, 





0xl63A, 

0x1406, 

Oxl1D0, 

0x0F99, 

0x0061, 





0X0B28, 

0x08EE, 

Ox06B3, 

0x0478, 

0x023C, 





0x0000, 

0xFDC4, 

0xFB88, 

0xF94D, 

0xF712, 

/* 

180-184 

Gradi 

*/ 

0xF4D8, 

0xF29F, 

0xF067, 

0xEE30, 

OxEBFA, 

/* 

... 


*/ 

0xE9C6, 

0xE794, 

0xE563, 

0xE335, 

0xE109, 





OxDEDF, 

OxDCBB, 

0xDA94, 

0xD872, • 

-0xD654, 





0xD439, 

0x0221, 

OxDOOD, 

OxCDFD, 

OxCBFO, 





0xC9E8, 

0xC7E3, 

0xC5E4, 

0xC3E8, 

0xClF2, 





OxCOOO, 

0xBE13, 

0xBC2C, 

0xBA49, 

0xB8£C, 





0xB695, 

0xB4C3, 

0xB2F8, 

0xB132, 

Ox AF72, 





0xADB9, 

0xACO6, 

0xAA5A, 

0xA8B4, 

0xA715, 





0xA57E, 

0xA3ED, 

OxA263, 

OxAOEl, 

0x9F66, 





0x9DF2, 

0x9C86, 

0x9B22, 

0x99C6, 

0x9872, 





0x9726, 

0x95E2, 

Ox94A£, 

0x9373, 

0x9248, 





0x9126, 

0x900C, 

OxBEFC, 

0x8DF3, 

0x8CF4, 





OxBEiFE, 

0x8B11, 

0x8A2D, 

0x8952, 

0x8880, 





0x8788, 

OxO£F9, 

0x8644, 

0x0598, 

0x84F5, 





0x845D, 

OX03CD, 

0x8348, 

0x82CC, 

0x825A, 





0x81F2, 

0x8193, 

0x813F, 

0x80F4, 

0x80B4, 





0x8070, 

0x8050, 

0xSO2D, 

0x8014, 

0x8005, 





0x0000, 

0x8005, 

0x8014, 

0x802D, 

0x8050, 

/* 

270-274 

Gradi 

1/ 

0xB07D, 

Ox80B4, 

Ox80F4, 

0x813F, 

0x8193, 

/* 

... 


*/ 

0x81F2, 

0x025A, 

0x82CC, 

0x8348, 

0xB3CD, 





0x845D, 

0x84F5, 

0x8598, 

0x8644, 

0x86F9, 





0 x 87138, 

0x8880, 

0x8952, 

0x0A2D, 

OxGBll, 





OxQDFE, 

OxOCF4, 

0x8DF3, 

OxBEFC, 

0x90OC, 





0x9126,. 

0x924B, 

0x9373, 

0x94A6, 

0x95E2, 





0x9726, 

0x9872, 

0x99C6, 

0x9B22, 

0x9C86, 





0-/9DF2, 

0x9F66, 

OxAOEl, 

0xA263, 

OxADED, 





OxA57E, 

0xA715, 

0xA0B4, 

OxAASA, 

OxAC06, 





0xADB9, 

ÙV.AF72, 

0xB132, 

OxB2F0, 

0xB4C3, 





0xB695, 

OxBQGC, 

0xBA49, 

OxBC2C, 

0 x BE13, 





OxCOOO, 

OxClF’2, 

OxC3E8, 

0xC5E4, 

0XC7E3, 





0-.C9CG, 

OxCBFO, 

OxCDFD, 

OxDOOD, 

0xD221, 





0x0439, 

0xD654, 

0XD872, 

0xDA94, 

OxDCBB, 





OxDEDF, 

0xE109, 

0xE335, 

0xE563, 

0xE794, 





0xE9C6, 

OxEBFA, 

0xEE30, 

0xF067, 

0xF29F, 





0xF4D8, 

0xF712, 

0xF94D, 

0xFB88, 

0xFDC4 

/% 

355-359 

Gradi 

*/ 


ruct punkt 

/#: Struttura punto nello 

spa 

zio 

%/ 

WORD 

x ! 

/% Coordinata x 

del 

punto 

*/ 

WORD 

y? 

/% Coordinata y 

del 

punto 

*/ 

WQF:D 

z» 

/% Coordinata z 

del 

punto 

%/ 
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struct li ni e 


WORD p1 ; 
WORD p2; 


/X Definizione linea X/ 

/X Nr. del primo punto finale */ 
/X Nr. del secondo punto finale */ 


struct objekt 


/% Struttura oggetto %/ 


UWORD 

anz_pun; 

/X 

Numero dei punti 

*:/ 

struct 

punkt fpunkte; 

/X 

Puntatore alla matrice punti 

:*/ 

UWORD 

anz_lin; 

/X 

Numero delle linee 

*/ 

struct 

lini e Xlinien; 

/X 

Puntatore alla matrice linee 

*/ 

UWORD 

farbt; 

/X 

Colore oggetto 

*/ 

char 

Enarri e ; 

/X 

Nome oggetto 

*/ 

UBYTE 

si chtbar ; 

/X 

=0: invisibile 

*/ 



/X 

= 1 : visibile 

*/ 

UBYTE 

trans forni; 

/X 

=0: l'oggetto non viene 

*/ 



/X 

trasformato 

*/ 


. 

/X. 

*1: l'oggetto viene 

t/ 



/X 

trasformato 

*/ 


uct welt /X Tutto 

ciò’ che si trova nel inondo X/ 


UWORD 

anz_obj; 

/X 

Numero degli oggetti 

X/ 

struct 

objekt ^objekte; 

/X 

Puntatore alla matrice ogget. 

X/ 

/X Valori di trasforrnaz 

ione per l'intero mondo X/ 


WORD 

x_r ot; 

/X 

Angolo di rotazione (Gradi) 

X/ 

WORD 

y _r ot ; 




WORD 

z _r ot; 




WORD 

x_ska; 

/X 

Valori di scala in 

X/ 

WORD 

y_ska; 

/X 

deci mi 

X/ 

WORD 

z^ska; 




WORD 

x_tra; 

/X. 

Valori di traslarioru 

X/ 

WORD 

y_tra; 




WORD 

:_tra; 




WORD 

x_beo; 

/X 

Coordinate dell' 

X/ 

WORD 

y_b<-o; 

/X 

osser vatore 

X/ 

WORD 

z_beo; 




WORD 

xe_t r a; 

/X 

Traslazione sul piano 

X/ 

WORD 

ye_tra; 

/* 

dopo la proiezione 

X/ 

WORD 

xe_ska; 

/X 

e scala del piano per adegua¬ 

X/ 

WORD 

ye_ska; 

/X 

mento alla risoluzione 

X/ 



/X 

dello schermo 

X/ 


J uruelt = 

{ 2 , 0 , 

340,20,0, 20,20,20, 0,0,0, 0,0,-500, 

200,100, 2,1 J; 

USH0RT Fen_Nr_s = 1, 

Fen_akt = 1, 

Fen_Nr_v = 0; 


/X Nr. finestra visibile 
/% Finestra attiva 
/X Nr. finestra nascosta 
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X/ 

t/ 

X/ 



* Valori per incremento/diminu:ione dei %/ 

* Valori di trasformazione da tastiera: .*/ 


«Irfinè 

SKALIER.INC 

1 

/* 

Vaiore Ine per 

scala 

*/ 

T :cfino 

DREH_INC 

1 

/% 

Valore Ine per 

rotasione 

*/ 

* r v f i n e 

TRANSLA INC 

4 

/* 

Valore Ine per 

traslazione 2 

*/ 


BEOB INC 

15 

/* 

+ coordinata 2 

osservatore 

:*/ 


* Definizione codici tasti RAU: */ 


♦ define 

SHIFT 

C I EQUAL I F I EP_LSH IFT ; 

: I EQUAL ITI ER_RSH IFT ) 

*ze fine 

PLUS 

0x5e 


•de fine 

PLUS2 

Oxlb 


•Cefi ne 

MINU5 

0x4a 


♦define 

MAL 

0x5d 


•Zefine 

GETEILT 

Ox 5c 


♦Zefine 

C_RECHTS 

0x4e 


♦ Zefine 

C_LINKS 

0x4f 


•zef 1 ne 

C_AUF 

0x4c 


• zefine 

C_AD 

0x4d 


»Zefine 

Z C AUF 

0x3e 


•zefine 

Z_C_AB 

Ox le 


♦z e f i n e 

z_cZrechts 

0x2f 


•Zefine 

Z_C_LINKS 

0x2d 


•Zefine 

DEL 

0x4G 


•zefine 

HELP 

0x5f 


•Zefine 

Z_ENTER 

0x43 


•Zefine 

Z_NULL 

OxOf 


•zefine 

Z PUNKT 

0x3c 


•Zefine 

ESC 

0x45 


-3NS do. 

program!) 



{ 

VOID 

welt_init<), 



schaf f e_wel tO, 
init_ausgabe C), 
wel t_ ver teiler O, 
pun_ska(), 
pun_traC ), 
pun_rot ( 
pun_zpj<), 
obj_zeichnenC), 
add_winkel(); 


struct 

wel t 

wel t ; 

/* 

Mefùor i a 

per struttura mondo 

%/ 

struct 

objekt 

*ob jek t e ; 

/* 

Matrice 

di tutti gli oggetti ori gin. 

*/ 

struct 

objekt 

*trans_obj; 

/* 

Matrice 

degli oggetti trasformati 

*/ 

uLONG 

c1ass; 


/* 

Memor 1 a 

per la struttura 

*/ 

USHORT 

code, 

qualifier; 

/* 

di messaggio di Intuition 

*/ 

APTR 

address; 





SHORT 

mouse_ 

x, rnouse_y; 






«3PD x_rot_inc - 0, 
y_rot_inc -* 0, 
z rot ine = 0; 


#7 


/% Incrementi di rotazione attuali 




USHORT Fen_zwisj /X Double-Buff memorizzazione intermedia Xf 

USIIOPT verd_flag =1; /* Flag per tracciatura */ 

/* nascosta/non nascosta 

if C!verd_flag> 

C 

Fen_zwis = Fen_Nr_v; /% Per tracciatura non nascosta %/ 

Fen Nr v = Fen_Nr s; 

} 


/* Iniziaiizzazione struttura mondo: */ 
welt_init (&welt); 

/t Caricamento dati per mondo: X/ 

schaf fe_wel t (&welt, 8<objekte, lktrans_ob j) ; 


/•* Loop di disegno: X/ 

/XXXXXXXXXXfrXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
code = 0; 

while (code != ESC) /X Loop in funzione fino a ESC X/ 

< 

RESISTER DWORD flag = 0; 


/* Trasferimento dati oggetto in matrici #/ 
/* per oggetti trasformati X/ 
ini t_ausgabe(Siwel t, trans_ob j) ; 


/X Trasformazione di tutto il mondo: X/ 


wel t 

_ver tei 1 er < 1, 

&welt, 

trans_obj); 

/* 

Scala 

*/ 

wel t 

_vertei1er(2, 

!<wel t, 

trans_obj); 

/X 

Traslazione 

*/ 

wel t 

_ver tei 1 er <3, 

Siwel t, 

trans_obj); 

/X 

Rotazione 

*/ 


/X Proiezione di tutto il mondo: X/ 
welt_vertei1er(4, &welt, trans_obj); 


/X Disegno di tutto il mondo, eventualmente nascosto %/ 

Move(RastPortCFen_Nr_v], 0L, 0L); /X Finestra X/ 

CIearScreenCRastPortCFen_Nr_v3); /* cancellazione 

welt_vertei ler (5, t»welt, trans_obj); /* disegno */ 

if <verd_flag) 

( 

/* Apparizione davanti della finestra nascosta: X/ 

/X und Fen_Nr_v <-> Fen_Nr_s tauschen: X/ 

ScreenToFrontC BildschirmCFen_Nr_vl ); 

Fen_zwis = Fen_Nr_v; 

Fen_Nr_v = Fen_Nr_s; 

Fen_Nr_s = Fen_zwisj 
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> 




/•* Loop di Input: */ 

/XXX:XXXXXXXXXXXXXXX/ 
do 
( 

Controllare tasto e eventualmente leggere nel codice X/ 

/X Attendere disegno solo se non ci sono rotazioni */ 

/* Viene letto il codice tasto (non 1* ASCII!) */ 

i f (x_rot_inc == 0 !<& 

y_rot_inc == 0 && 

z_rot_inc == 0) 

/# Attesa messaggio: X/ 

Mait(lL << Fenst er CFen_akt 1-MJserPor t — >mp_Si gBi t ) ; 
flag = 1; /X Flag per attesa X/ 

> 

/# Elaborazione segnalazione: */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
while (Message = 

Cstruct IntuìMessage *)GetMsg(FensterCFen akt}->UserPort)) 

( 

/* Daten aus Message-Struktur lesen: X/ 
class = Message->C1ass; 

code = Message->Code; 

qualifier = Message->Qualifier; 
address = Message-MAddress; 

Kiouse.x — Message—>MouseX ; 

mouse_y = Message->MouseY; 

KepiyMsg(Message); /* Restituzione messaggio */ 


/* In caso di tasto Mouse (solo se e’ premuto */ 
/X il tasto sinistro del Mouse) X/ 

if (class == M0USEBUTT0NS SA code == MENUDOWN) 

{ 

/X posizionamento del mondo sullo schermo: X/ 

welt.xe_tra = mouse_x; 
welt.ye_tra ” mouse_y; 


flag = 0; 

> • 

else /* diversamente: tastiera */ 


switch (code) 

( 

case PLUS2: 
case PLUS: 

welt.x_ska 
welt.y_ska 
welt.z_ska 
flag = 0; 
break; 
case MINUS: 
welt.x_ska 
welt.y_ska 
welt.z_ska 
flag = 0; 
break; 


/X Ingrandimento 
SKALIER_INC, 
SKALIER_INC, 
SKALIER_INC; 


/X Riduzione 
SKALIER_INC, 
SKALIER_INC, 
SKALIER_INC; 


*/ 


X/ 
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case C_RECHTS: 

if (SHIFT ti qualifier) /* SHIFT? */ 

{ 

/t si: Rotazione a destra attorno all’asse z tV 
z rot ine -= DREH_INC; 

> 

else 

{ 

/* no: Rotazione a destra attorno all’asse y tV 
y rot ine -= DREH_INC; 

> 

flag = 0; 
break; 

case C_LINKS: 

if (SHIFT t< qualifier) /* SHIFT? */ 

< 


/* Si: Rotazione a sinistra attorno asse z tV 
z_rot_inc += DF:EH_INC; 


> 

el se 

/t no: Rotazione a sinistra attorno asse y t/ 
y_rot_inc += DREH_INC; 


flag = 0; 
break; 

case C_AUF : /* Rotazione a destra attorno asse x 
x_rot_inc -= DREH_INC; 
flag = 0; 
break; 

case C_AB: /# Rotazione a sinistra attorno asse x 

x_rot_inc += DREH_INC; 
flag - 0; 
break; 

case Z_C_RECHTS: /t Allontanamento mondo 

welt.z_t ra += TRANSLA_INC; 
flag = 0; 
break; 

case Z_C_LINKS: /t Avvicinamento mondo 

wel t. z_t r a -= TRANSLA_INC; 
flag = 0; 
break; 

case Z_C_AUF: /% Allontanamento osservatore 

welt.z_beo -= BE0B_INC; 
flag = 0; 
break; 

case Z_C_AB: /t Avvicinamento osservatore 

welt.z_beo += BE0B_INC; 
flag = 0; 
break; 

case DEL: /* Inserzione si/no sistema coordinate tV 

C(welt.objekte)+0)->sichtbar = 

<((welt.objekte)+0)->sichtbar)? 0 : 

flag = 0; 
br eak; 


*/ 


t / 


*/ 


t/ 


tv 
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r- 


case HELP: /* Arrestare tutto e ritorno 

/X Ripristino dei valori del mondo 
welt_init( &wel t ) ; 

case Z_ENTER:/* Arresto solo delle rotazioni 
x_rot_inc = /* Arresto rotazioni 

y_rot_inc = 
z_rot_inc = Oj 
flag = 0; 
break; 

case Z_NULL: /* Trasformazione si/no del sistema 
/* delle coordinate 

0 : 1 ; 


*/ 


X/ 


X/ 


*/ 

flag = 0; 
break; 


<(welt.objekte)+0)->transform = 

< <(welt.objekte)+0)->transform)? 
flag = 0; 
break; 

case Z_PUNKT:/* Disegno nascosto si/no 
if (verd_flag - Cverd_flag>? 0 : 1) 

t 

Pen_Nr_v = Fen_zwis; /* si 

> 

el se 
C 

Pen_zwis = Fen_Nr_v; /X no 
Pen_Nr_v = Fen_Nr_s; 

> 

break; 

case ESC: /* Fine 


*/ 

%/ 


X/ 

:»/ 


*/ 

*/ 


J /* suitch */ 
j /X else X/ 

J /X uhi le */ 
add_wi nkel (bwel t. x_rot, 
add_winkelC&welt.y_rot, 
add_winkel (?<wel t. z_rot, 

ì uhi 1 e (flag); 

> /% uhi le */ 
return((LONG)TRUE); 


x_rot_inc); 
y_rot_inc ) ; 
z_rot_inc); 

/X finche' flag !— 0 X/ 


/X Aggiunta velore pos./neg. ad un angolo: X/ 
/XXXXXXXiXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


VOID add_winkel(winkel, ine) 
WORD Tuinkel; 

WORD inc; 



* winkel ine; 

/* 

Aggiunta valori X/ 

if ($wink*l >* 360) 

/* 

portando l'angolo a %/ 

♦winkel -= 360; 

/X 

valori da 0 a 353 t/ 

if Cfcwinkel < 0) 



♦winkel +* 360; 




•t* 
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/* Iniziaiizzazione struttura mondo: X/ 

/1 t i t t t rrrr rrrrr : Litri :♦ :* ir tin x^xxxxx t r / 


VDID welt_init <w) 
struct velt *u; 


urwelt.anz_obj = w->anz objf 
urwelt.objekte = w->ob jekte; 


Numero invariato oggetti 1 / 
e puntatori oggetti */ 


•tw = urweltj 

} 


/* Mondo ori gin. dopo mondo */ 


/XtXXXXXtXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/•4 Preparazione di tutte le strutt. dati X/ 
/******** t ****** ***************** *********/ 


/* Questa matrice indica quanti punti e */ 
/■t quante linee sono possedute dai diversi */ 
/* oggetti, nonché' quali colori e nomi */ 
/X essi abbiano */ 


struct new_objekt 

UWORD an:_pun; 
UWQRD anz liti; 
UWORD farbei 
char *name; 

5 new_objekt C 3 = 

< 


/X 

Numero 

punt i 

*/ 

/X 

Numero 

Linee 

*/ 

/X 

Colori 


*/ 

/X 

Nome 


*/ 


l 6, 3, 

2 , "Koordinatensystem"J, 

<34,43, 

3, "Haus">, 

<0,0,0,"\0"5 


/* 

Punti/Linee 

oggetto 

1 

*/ 

/X 

Col ori/Nome 

oggetto 

1 

X/ 

/X 

Punti/Linee 

oggetto 

2 

X/ 

/X 

Col ori/Nome 

oggetto 

2! 

X/ 

/V 

Simbolo di 

f i ne 


X/ 


Questa matrice contiene tutti i punti di tutti */ 
/i gli oggetti. La sequenza degli oggetti e dei */ 
/% punti deve venire sempre rispettata! */ 


struct punkt _punkteC5 = 

{ 

/* Sistema di coordinate: */ 


<-11 


0 , 

40, 


05, < 40, 
05, < 0, 


0, 05, { 

0,-155, C 


0,-15, 05, 

0, 0, 405, 
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/* Casa: 





*/ 


£-6, 6, 

14), 

£ 

£, 6, 

14), 

£ 6,-6, 

14) 

<-6,-6, 

14), 

£ 

£, 6, 

-14), 

£-6, 6, 

-14) 

<-6,-6,- 

■14), 

£ 

£,-£, 

-14), 

£ 0,14, 

14) 

{ 0,14,- 

•14), 

£- 

-2,-6, 

14), 

£-2, 0, 

14) 

< 2, 0, 

14), 

£ 

2,-6, 

14), 

£ 6, 4, 

10) 

< £, 4, 

4), 

( 

6, 0, 

4), 

£ 6, 0, 

10) 

< £, 4, 

-4), 

£ 

6, 4, 

-10), 

£ 6, 0, 

-10) 

< 6, 0, 

-4), 

£ 

6,-2, 

2), 

< 6,-2, 

-6) 

( £,-£, 

-£), 

£ 

6,-6, 

2), 

£ 2,12, 

-4) 

< 2,16, 

-4), 

{ 

2, 16, 

-6), 

£ 2,12, 

-6) 

{ 0,14, 

< 0,14, 

-4), 

-6) 

{ 

0, 16, 

-4), 

£ 0,16, 

-6) 


/* Buesta matrice contiene tutte le linee di tutti */ 


/* gli oggetti. Rispettare la sequenza! */ 
/* La numerazione dei punti e’ sempre relativa .*/ 
/X. al primo punto di un oggetto ! */ 
/X (Primo punto dell’oggetto uguale a zero) X/ 


struct linie linienC) = 
< ' 


/% Sistema di coordinate: 

*/ 

£0,1), £ 

2,3), £4, 

5), 



/t Casa: 




*/ 

£ 0, 1), 

£ 1, 2), 

£ 2, 

3), 

£ 3, 0) 

£ 1, 4), 

£ 4, 7), 

£ 7, 

2), 

£ 7, 6) 

£ 6, 5), 

£ 5, 4), 

£ 5, 

0), 

£ 6, 3) 

£ 8, 9), 

£ 0, 8), 

r'S 

CD 

1), 

£ 4, 9) 

£ 5, 9), 

£10,11), 

! £11, 

12), 

£12,13) 

£14,15), 

£15, 16), 

£16, 

17), 

£17,14) 

£18,19), 

£19,20), 

, £20, 

21), 

£21,18) 

£22,23), 

£23,24), 

£24, 

25), 

£25,22) 

£26,27), 

£27,28), 

, £28, 

29), 

£29,26) 

£30,31), 

£31,32), 

£32, 

33), 

£26,30) 

£29,33), 

£27,31), 

, £28, 

32) 



/X Riserva memoria: X/ 
/XXXXXXXXXXXXXXXXXXXX/ 


/* Numero oggetti: %/ 

(♦define ANZ_OBJ (sjzeof new_objekt / si z eof (st r uc t neu_objekt) — 1) 


t% Numero Punti: %/ 

♦tdefine ANZ_PUN (sizeof _punkte / si zeof (st r uc t punkt)) 


struct objekt _objekte£ANZ_OBJ); 
struct objekt _trans_obj[ANZ_OBJ); 
struct punkt _trans_pun£ANZ_PUN]; 


/* 

Riserv. per 

ogget 1 1 

*/ 

/* 

per oggetti 

trasform. 

%/ 

/X 

Riserva meni. 

.per punti 

X/ 

/X 

trasformati 


X/ 
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/* Lettura di tutte le definizioni di */ 
/* mondo, oggetto, linea e punto */ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


VOIL' 'ìc 
struct 
struct 
stiuct 


ha f ft_welt <w, p_objekt 
welt -tu ; 

objekt **p_objekte; 
objekt X *p_t r ans_ob j ; 


«, p_trans_objl 
/* Puntat. alla strutt. 
/X Puntat. al puntatore 
/X matrice dell'oggetto 


mondo 

alla 


*/ 

*/ 

X/ 


RESISTER UWOED i; 

RESISTER UWORD p_ges = 0, 
l_ges = 0; 


/* Numero totale attuale punti*/ 
/X Numero totale attuale linee*/ 


»p 

_objekte = 

_objekte; 

/* 

*p 

_trans_ob j 

= _trans_obj; 

/* 




/* 

w- 

>objekte = 

_ob jekte; 

/* 




/* 


Indirizzo matrice oggetto */ 
Indirizzo matrice oggetto */ 
per matrice trasformata */ 
Indirizzo matrice oggetto */ 
nella struttut a mondo */ 


for <i=0; new objektC 1 3.anz pun != 0; i++) 

< 


/* Occupazione struttura oggetto per ogni oggetto: */ 


_objekteCi3.anz_pun 
_objekteCi3.punkte 
_objekteti3.anz_lin 
_objekt eCi3.1inien 
_ob jekt eC i 3. f ar be 
_ob jektet i 3.name 


new_objektC i 3.anz_pun; 
!<_punkteCp_ges3 ; 
new_objektli 3.anz_l in; 
&_1inien C1_ges 3 ; 
new_objekt Ci 3.farbe; 
new_objekt Ci3.nome; 


_objekteCi3.sichtbar= 1; 
_objekteCi3.transform = 1; 


/* 

/* 

/* 

/* 

/* 

/* 


Nr.punti 
Mat r.Pun 
Nr.1inee 
Mat r.1 in 
Colore 
Nome 


/* visibile 
/*t ras f. 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


p_ges += new_objektCi 3.anz_pun; /* n.ro tot.att.punti */ 
l_ges += new objektCi3.anz_lin; /* n.ro tot.att.Linee */ 

> 

w->anz_obj = i; /* Inserimento numero oggetti */ 


/* Pi eparazione compito e trasformazione tramite */ 
/* trasferimento dei dati originali dell'oggetto */ 
/* in matrici per i dati trasformati */ 
/* t ***************** ************************ ***** **/ 


VOID init_ausgabe(w, trans_obj) 

struct welt *wj 

struct objekt *trans_obj; 


/* Puntatore struttura mondo */ 
/* Puntatore agli oggetti */ 
/* trasformati */ 
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struct objekt tobjekte; 

REGISTER UWORD i, k; 

REGISTER UWORD p_ges « 0; 

objekte = w->objekte; 

for (i=0; i < w->anz obj; i++) 

trans_objCiD = objekteCil; 


/* Puntatore agli oggetti */ 
/% Indici loop FOR XV 
/% n.ro totale attuale punti %/ 

/X Inizializzaz. puntatore %/ 

/X Elaboraz. di ogni oggetto %/ 

/% Trasferimento struttura X/ 
/X oggetto in una X/ 
/X struttura per oggetti X/ 
/X trasformati XV 


/X Indirizzo dell'elemento di matrice corrispondente come XV 
/X indirizzo primo elemento matrice dei punti dell'oggetto XV 
truris_ob jC i 1 . punkte * &_trans_punCp_gesl ; 

p_ges += objekteti3•anz_pun; /X Startpos. next Array XV 

for <k~0; k < ob jekt eC i 3 . anz_pun; k++) 

/X Trasferimento matrici punti XV 
trans_objCil.punkteCkl = objekteCi1.punkteCk3 ; 


/X Elaborazione dell'intero mondo */ 
/*X.X*X*X*XX*X.XXX****X*X*X*XX*XX****/ 


’.’OID welt_vertei 1 er (modus, w, trans_obj) 


UWORD modus; 


struct welt tw; 

struct objekt *trans_obj; 


/X Tipo di elaborazione#/ 

/* =1: scala t/ 

/X =2: Traslazione X/ 

/X =3: Rotazione X/ 

/X =4: Proiez. centr. X/ 

/% *5: Disegno X/ 

/X Puntatore a struttura mondo 
/X Puntatore matrici strutture 
/X per oggetti trasformati 


%/ 

X/ 

X/ 


VOID obj_ transfO, 
pun_ska () r 
pun_tra(), 
pun_rot(>, 
pun_zen(), 
obj_z eichnen(); 

REGI STER. UWORD i; 

/X Trasformar ione di tutti gli oggetti X/ 
for (i*0; i < w->anz__obj; i+*) 

C 

/X Effettuare tutte le elaborazione all'oggetto attuale X/ 
/X memorizzare eventuali eventi in trans_objC3 X/ 

switch (modus) 





case 1: 

/* if (trans objCi3.transform) *//* trasformare? %/ 

< 

ob j_t rans f (pun_ska, &trans_obj C i 3 , 

w->x_ska, u->y_ska, w->z_ska); 

J 

break ; 
case 2: 

if (trans_objCi3.transform) /* trasformare? */ 

■C 

obj_transf<pun_tra, &trans_objCi3, 

w>x_tra, w->y_tra, w->z_tra); 

3 

break; 
case 3: 

if <trans_objC i 3 . transfornì) /% trasformar e? %/ 
i 

obj_trans f(pun_rot, &trans_ob j Ci3 , 

w->x_rot f w->y_rot, w->z_rot); 

j 

break; 
case 4: 

ob j_transf <pun_zen, S<trans_ob j[ i 3 , 

w->x_beo, w->y_beo, w->z_beo); 

break; 
case 5: 

ob j_zei chnen (u, &trans_obj[ i 3 ) ; 
br eak; 

} /% sui teli %/ 

3 /# for */ 


/t Trasformazione di un oggetto : %/ 

/ * • ( » ( M t t t t * M t M I t M f ti I t 4 (:f :((-( f (V 

VOID obj_transfCoperation, objekt, ti, t2, t3) 


VOID (Toperation3CÌ; 

/* 

Puntatore alla funzione 

%/ 


/X 

elle deve eseguire la 

:♦:/ 


/X 

trasformar ione: 

♦ / 


/* 

pun_ska(), pun_tra(), 

:*/ 


/X 

pun_rot(), pun_zenO 

Xf 

struct objekt (objekt; 

/x. 

Indirizzo dell’oggetto 

X/ 


/X 

da trasformare 

X/ 

WORD tl, t2, tS; 

/X 

Parametri di trasform. 

X/ 


struct punkt Tpunkte; /% Puntat. matrice di punti 1/ 

REGI STER UWORD i; 

punite = objekt->punkte; /* Indirizzo matrice di punti (V 

/t Trasformazione di tutti i punti: %/ 
for <i=0; i < objekt->anz_pun; i++) 

< 
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/*• Chiamata indiretta della routine di trasformazione */ 
Ofoperation)(&punkt eCi3, tl, t2, t3); /Xl Pkt transf.1V 


/% Messa in scala di un punto IV 

/xxxxtxxxxxxxxxxxxxxxx a********/ 

VOID pun_ska(punkt, xs, ys f zs) 


struct punkt *punkt 
WORD xs, ys, zs; 


/% Puntat. alla strutt. di punto IV 
/* Parametri di messa in scala %/ 


i 


punkt->x = (punkt->x * xs) / 10; /* Fattore di scala in 
punkt->y = (punkt->y t ys) / 10; /:* decimi 


*/ 

*/ 


punkt —>2 = (punkt->z * zs) / 10; 


/% Traslazione di un punto %/ 
/XXXXXXXXXX XXXXXXXXXXXXXXXXX/ 

VOID pun_tra(punkt f xl f yl, zi) 
struct punkt tpunkt; 

WORD xl, yl, zi; 


i 


punkt->x += xl 
punkt->y += yl 
punkt->z += z1 


> 


/X Rotazione «li luì punto IV 
/ X 1 - X 11 : 1:4 111111 * 1111 - 11:11111 / 

VOID purì_r ot (punì t., xr_w, yr^w, zr_w) 
struct punkt tpunkt; 


WORD xr , yr_w, zr_w 


/* Angolo di rotazione 


REGISTER LONG x,y,z; 

REGISTER LONG sin_w, cos_w; 
LONG zwis; 


/X Proposte di registro 


/X Caricamento registro con coordinate*/ 


x = punkt->x 


y = punkt->y; 
z - punkt->z; 

/* Rotazione attorno all'asse z: */ 


/* Angolo x !- 0 ? X/ 


ìf (xr w) 


r 


/X Prelevare seno/coseno per 2^15 dalla tabella %/ 
sin_w = sinusCxr_wl; 







/* Calcolo della matrice di rotazione e divisione per 2~15 */ 
/* (Calcolo all'indietro dei valori di seno/coseno) */ 

zuis = (ytcos.u - z*sin_u) >> 15; 

z = (y*sin_w + z*cos_u) >> 15; 

y = zuis; 


/* Rotazione attorno all'asse y */ 

if (yr_u) /* angolo y ! = 0 ? %/ 

£ 

Prelevare seno/coseno per 2^15 dalla tabella t/ 
sin_u = sinusCyr_u3; 
cos_w = sinusC W_PLUS_90(yr_u) 3; 

/* Calcolo della matrice di rotazione e divisione per 2~15 */ 

/* (Calcolo all’indietro dei valori di seno/coseno) */ 

zuis = ( x*cos_w + z*sin_w) >> 15; 

z = (-x'tsin_u + ztcos.u) >> 15; 

x = zuis; 

> 

/* Rotazione attorno all'asse 2 */ 

if (zr_u) /* Angolo z ! - 0 ? 

( 

/% Prelevare seno/coseno per 2" 15 dalla tabella; %/ 

sin_u = 5inustzr_wl; 

cos_u = sinusC W_PLUS_90(zr_u) 1; 

/% Calcolo della matrice di rotazione e divisione per 2^15 %/ 
/% (Calcolo all'indietro dei valori di seno/coseno X/ 

zuis = (x*cos_u — y*5ln_w) >> 15; 

y »> (x*sin_w + y*cos_u> >> 15; 

x = zuis; 

punkt->x = x; /* Coordinate indietro */ 

punkt~>y = y; 
punkt->z = z; 


/(' Proiezione centrale di un punto 1/ 
' t * t t t * t t f i » **** Mi *»*» M *** ♦ *»:*:*♦*»/ 


VOID pun_zen(punkt, xz, yz, zzi 

struct punkt Xpunkt; /X Puntatore alla struttura del punto */ 

WORD xz, yz, zz; /* Coordinate osservatore */ 


REGI STER WORD zuis; 


if (zuis = punkt->z - zz) 


/% solo in caso di zuis 


0 


*/ 


punkt->x 
punkt->y 
punkt->z 


(LONG)xz 
(LONG)yz 

o; 


( (LONG)zz * (LONG)(punkt->x - xz) )/zuis 
( (LONG)zz * (LONG)(punkt->y - yz) )/zuis 
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/:*: Coordinata z del punto uguale a coordinata 2 osservatore t/ 
punkt->x - x 2 ; 
punkt —>y = yz ; 
punkt->z = 0; 


/* Tracciare (su un piano nascosto) un oggetto sullo schermo */ 

' t M ********* :*:.* :*: *: t *:*::* :*X%*X*X*#**XXXXX**XXX.XrxxxX- ***************/ 


VOID obJ_zelchnen(w, objekt) 
struct uelt *w; 

strurt objekt kob jekt ; /* Puntatore All’oggetto */ 

/* da tracciare X/ 


struct punkt fpunkte; /* Puntatore alla matrice di punti */ 
struct linie Tlinien; /X Puntatore alla matrice di linee */ 
RESISTER UtJORD i; 

WORtJ xl, x2, yl, y2; /* Coordinate punto finale */ 


if (objekt->sichtbar) /X Disegno solo di un oggetto %/ 

/* visibile */ 

punkte = objekt->punkte; 
linieri = ob jekt->l i ni en; 


/* Impostazione colori: %/ 

SetAPen C RastPortCFen_Nr_vl, (LONG)objekt —>farbe ); 


for (i=0; i < objekt->anz_lin; i++) 

( 

xl = w->xe_tra + w->xe_ska * punkteC linienlil.pl 

yl = w->ye_tra - u->ye_ska * punkteC linienCil.pl 

x2 = w->xe_tra + w->xe_ska * punkteC linienCil.p2 

y2 = w->ye_tra — w->ye_ska * punkteC linienCil.p2 

/X Tracciato linee: */ 

Move( RastPort CPen_Nr_v1 , (LONG)xl, (LONG)y1 ); 
Draw( RastPortCFen_Nr_vl, (L0NG)x2, (LONG)y2 ); 


1. x; 

3.y; 

I. x; 

J. ys 



A questo punto lanciamo il programma: viene aperto un nuovo schermo, cambiati i 
colori e appare una piccola e graziosa casetta in prospettiva. Proseguiamo: premiamo 
10 o 20 volte il tasto " + ” (sulla tastiera americana il tasto "]"). La casetta diventa una 
casa. Con il tasto del tastierino numerico potremmo riportarla alle sue dimensioni 
originali. Ora che ci troviamo di fronte ad essa, non rinunciamo a girarle attorno: pre¬ 
miamo il tasto di "cursore verso destra". 
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Ora stiamo ruotando attorno alla casa - oppure è la casa che ruota intorno a noi, 
o ruota intorno a se stessa? Premiamo più volte lo stesso tasto. Comincia a girarci la 
testa? Forse sarebbe meglio premere per alcune volte “cursore a sinistra" oppure, an¬ 
cora meglio: “Enter" (tastierino numerico). Ora la casa è di nuovo ferma. 


Premiamo due volte “cursore verso sinistra" e “cursore verso l’alto", nonché “Shift" 
e “cursore verso destra”. Le rotazioni attorno a diversi assi si sovrappongono. Premia¬ 
mo ora per circa 10 volte il numero “4” della tastiera numerica. Stiamo spostando il 
centro di rotazione. La casa ruota non più attorno a se stessa, bensì attorno ad un altro 
punto. Possiamo continuare a provare come vogliamo. 


Oltre alle funzioni dei tasti sopraelencati, il programma offre numerose altre possibili¬ 
tà di intervento. (La “n” dopo un tasto significa che si tratta di un tasto situato sul tastie¬ 
rino numerico): 


"Tasto destro del mouse" 


“Più” 

“Meno N" 

"4 N” 

“6 N" 

“8 N" 

“2 N" 

"cursore destra" 
"cursore sinistra" 
“cursore verso alto” 
"cursore verso basso" 
"Shift” “cursore destra" 
“Shift” “cursore sin.” 
“Del” 

“0 N" 

“Help" 

"Enter N" 

"Punto N" 

"Esc" 


Posizionamento degli oggetti sul monitor alla posizione 
indicata dal puntatore del mouse 
Ingrandimento dell'oggetto 
Riduzione dell’oggetto 
Avvicinamento dell’oggetto 
Allontanamento dell’oggetto 
Allontamento dell'osservatore (punto di fuga) 
Avvicinamento dell’osservatore (punto di fuga) 
Rotazione a destra attorno all’asse y 
Rotazione a sinistra attorno all’asse y 
Rotazione a destra attorno all’asse x 
Rotazione a sinistra attorno all'asse x 
Rotazione a destra attorno all’asse z 
Rotazione a sinistra attorno all'asse z 
Attivazione/disattivazione sistema di coordinate 
Attivazione/disattivazione trasformazione sistema di coor¬ 
dinate 

Fine delle rotazioni, trasformazioni riportate ai valori ori¬ 
ginali 

Fine di tutte le rotazioni 
Attivazione/disattivazione del Doublé Buffering 
Termine del programma 


Sarà tuttavia necessario fare attenzione a non usare il tasto sinistro del mouse, dal 
momento che potrebbe succedere che il programma non reagisca più agli input che 
gli vengono dati (vedremo subito perché). Nel caso in cui ciò fosse già successo, tenia¬ 
mo premuto ripetutamente il pulsante sinistro del mouse finché il programma non sarà 
di nuovo attivo. 

Naturalmente questo programma ci divertirà molto al suo apparire. Tuttavia, più avanti, 
la casa non ci piacerà più: vorremo anche un’automobile, una bicicletta, oppure un’in¬ 
tera città. Da questo punto di vista, il programma è estremamente flessibile. Esso può 



maneggiare, senza modifche, un numero quasi a piacere di oggetti. Ogni oggetto po¬ 
trà avere il proprio colore, potrà essere visibile o invisibile eco. Ogni oggetto potrà es¬ 
sere composto da un numero di punti e di linee a piacere. L'unica cosa che dovremo 
fare per rappresentarlo è quella di inserire i dati necessari (descrizione dell'oggetto, 
punti, linee) e ricompilare il programma. Diversamente, sarà possibile memorizzare i 
dati (per esempio su disco) e mantenere invariato il programma vero e proprio. Attual¬ 
mente il piccolo mondo del nostro computer è composto da due oggetti: un sistema 
di coordinate e una casa. Inoltre, non sarà possibile trasformare nè tutti gli oggetti in¬ 
sieme, nè i singoli oggetti. Ciò è dovuto al fatto che i dati di trasformazione sono pre¬ 
senti una volta sola nella struttura di tale mondo. Se inseriamo tali dati (rotazione, 
traslazione, ecc.) in aggiunta alla struttura di ogni oggetto, cosa che, dal punto di vista 
del programma, non è assolutamente un problema, potremo ruotare, ingrandire ecc. 
ogni oggetto singolarmente preso e separato dagli altri. Le coordinate di ogni punto 
dell'oggetto si riferiranno quindi solo al sistema di coordinate proprio dell'oggetto stes¬ 
so. Ogni sistema di coordinate dell'oggetto avrà la propria posizione, sempre variabi¬ 
le, nel suo mondo. Naturalmente tale mondo possiede a sua volta le trasformazioni, 
e potrà venire ruotato, ingrandito, ecc. neH’insieme. 


Passiamo ora alla descrizione del programma: 

Ciò che andrebbe fatto prima di tutto in un programma per Amiga, cioè l'apertura 
e inizializzazione dei diversi componenti del sistema, è già stato appreso in un capitolo 
precedente. Si trattava infatti delle library. Il programma ha bisogno, oltre alla Exec- 
Library già aperta, anche della Intuition-Library e della Graphics-Library. Per precau¬ 
zione, in caso di futuri ampliamenti di tale programma, apriamo anche la MathFFP- 
Library, anche se per il momento non utilizziamo le librerie matematiche veloci. 

Quanto segue è già noto: l'apertura di un nuovo schermo con una finestra. Tuttavia, 
in questo caso, ne vengono aperti due contemporaneamente. Ciò ha a che vedere 
con il cosiddetto Doublé Buffering, di cui ci occuperemo fra poco. Non meravigliamoci 
se non vediamo nessuna finestra. Abbiamo scelto l'opzione BORDERLESS. Di conse¬ 
guenza le finestre non sono dotate di contorni. Inoltre non troveremo nessun gadget 
nelle finestre. Anch’essi sono completamente invisibili. Tramite SetRGB4( ) vengono im¬ 
postati i colori. E’solo a questo punto che incontriamo la chiamata di programma vera 
e propria: do_program( ). 

Prima di addentrarci nel programma vero e proprio, approfondiamo brevemente quan¬ 
to si trova sotto il titolo "Variabili e strutture globali". Si tratta di una tabella gigantesca: 
a tabella dei seni. Per le matrici di rotazione abbiamo bisogno di calcolare seni e cose¬ 
ni di angoli a piacere. Ciò, naturalmente, potrebbe venire effettuato in maniera molto 
semplice tramite le funzioni della Library matematica dell’Amiga. Ma quanto impieghe- 
’emmo? Noi vogliamo ruotare il nostro oggetto in maniera relativamente veloce sullo 
schermo. Quindi, poiché nel programma abbiamo a che fare solo con angoli interi (cioè 
senza virgola) creiamo semplicemente una tabella con 360 valori (per gli angoli da 0 
a 359). Ogni valore indica il seno di un angolo ampio un ben determinato numero di 
3 'adi. Nel caso in cui il programma avesse bisogno del seno, per esempio, di 157°, 
esso andrà a consultare tale tabella e, nel giro di microsecondi, si otterrà il seno desi¬ 
derato. Non è necessario nessun altro calcolo. 

IH! •?* 
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Con la stessa tabella sarà possibile determinare anche il coseno di un angolo. Forse 
ricordiamo ancora dalla scuola la seguente equazione: 

cos(a) = sin(a + 90) 

oppure, in radianti: 

cos(a) = sin(a + PI/2) 

Il coseno di 100 gradi è quindi uguale al seno di 100 + 90 = 190°. Aggiungere 90 
all'angolo, controllare nella tabella del seno e il gioco è fatto. L’unica cosa a cui sarà 
necessario fare attenzione è che l’angolo non potrà mai diventare maggiore di 359°, 
dal momento che ciò supererebbe la capacità della tabella. Non è tuttavia difficile evi¬ 
tare ciò, dal momento che 360° sono una rotazione completa, cioè corrispondono a 
0°. Quindi, se un angolo diventa maggiore di 359°, togliamo semplicemente 360. 


La tabella avrebbe anche potuto essere molto più piccola. Senza grossi calcoli, infat¬ 
ti, avremmo potuto inserire i valori del seno da 0 a 179, addirittura da 0 a 89 gradi. 
Ma la memoria deH'Amiga è grande, e il tempo di calcolo è sempre prezioso. 


Come memorizzare allora i valori del seno? In conclusione tutti i valori sono contenu¬ 
ti fra -1 e 1. I calcoli con la virgola portano via troppo tempo. Soluzione: nella tabella 
i valori di seno non sono memorizzati direttamente, ma moltiplicati per 2 15 = 32768. Ciò 
corrisponde, nel sistema binario, a uno spostamento di 15 Bit verso sinistra. Con ciò 
tali valori rientrano perfettamente in una parola (il Bit più alto, cioè il quindicesimo, ser¬ 
ve come bit per il segno). In seguito, nel programma, al momento delle moltiplicazioni 
con le coordinate di un punto, si procederà all’inverso, (anche se senza arrotondamenti) 
cioè (dopo la moltiplicazione) effettueremo una divisione per 2 15 = 32768 (spostamen¬ 
to di 15 bit verso destra). Questo spostamento può venire eseguito molto velocemente 
e senza sforzi dal processore (anche in C), con un solo comando. Non è quindi neces¬ 
saria nessuna lunga divisione. Seguono quindi le definizioni di struttura per un punto, 
una linea, un oggetto e l’intero mondo (infatti ogni punto, linea ecc. è una struttura nel¬ 
la quale sono presenti le coordinate, cioè i numeri dei punti finali). AH’interno della strut¬ 
tura dell'oggetto si trovano due puntatori. Tutti i punti e tutte le linee di un oggetto sono 
contenuti in due grandi matrici (ogni matrice è composta quindi da numerosissime strut¬ 
ture di punto e di linea). I puntatori alla struttura dell'oggetto puntano proprio a queste 
matrici. Inoltre in questa struttura è contenuta l’indicazione del numero di punti e linee 
di cui l’oggetto si compone, ed il suo colore (è possibile inserire anche un nome). Inol¬ 
tre è annotato anche se l’oggetto è visibile sullo schermo e se deve essere soggetto 
alle trasformazioni nello spazio. In ogni struttura spaziale si trova inoltre un puntatore 
ad un'altra matrice. Le strutture di tutti gli oggetti sono infatti contenute anch'esse in 
una matrice. Nella struttura spaziale riconosceremo finalmente i valori per le diverse 
trasformazioni, le coordinate dell’osservatore e le trasformazioni sul piano per l’adatta¬ 
mento allo schermo. 

Esistono ancora altre due matrici che meritano di essere citate. Si tratta di una se¬ 
conda matrice dell'oggetto e di una seconda matrice dei punti. (I loro nomi sono: 
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1 trans_obj[ ] (o anche _ trans_obj[ ]) e _ trans_pun[ ]). Esse sono strutturate esatta¬ 
mente come quelle precedentemente descritte e hanno le stesse dimensioni. All’inizio 
del programma esse vengono riscritte con gli stessi valori. Tuttavia, quando un ogget¬ 
to deve venire trasformato e proiettato con tutti i propri punti, è solo in questo secondo 
gruppo di matrici che vengono memorizzati i risultati intermedi di queste trasformazio¬ 
ni. In pratica, per il calcolo serve solo il secondo gruppo di matrici. In questo modo 
vengono conservate le coordinate originali del punto. 


Le relazioni tra le varie strutture vengono rappresentate nella figura seguente: 



=ìesta solo il fatto che tutte queste strutture non sono inizializzate (cioè riempite di 
cat L mzializzazione ha luogo nella funzione schaffe _ welt( ) (crea-mondo), chiama¬ 
la oe r seconda nel do_program( ). 
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Prima di cercare di comprendere il procedimento di questa funzione, dovremo oc¬ 
cuparci dell'input dei dati tridimensionali (vedasi anche sotto il titolo “Approntamento 
di tutte le strutture dati"). In esso troviamo dapprima una matrice di strutture che de¬ 
scrive i nuovi oggetti (new_object[ ]). Nel caso in cui volessimo modificare il sistema 
di coordinate della casa, è qui che immetteremmo per ogni oggetto il numero di punti 
e di linee di cui esso è costituito, che colore ha e come si chiama. Il numero degli ele¬ 
menti qui inseriti determina da quanti oggetti è costituito il nostro mondo (in questo ca¬ 
so 2), e la sequenza determina il numero di oggetti. 

Quindi troviamo la matrice dei punti _ punkte[ ]. Essa contiene tutti i punti di ciascun 
oggetto, ordinati nella stessa sequenza degli oggetti. La sequenza dei punti fornisce 
infine il singolo numero di punto. Per ogni oggetto la numerazione ricomincia sempre 
da zero. E' in questa matrice che vengono registrate le coordinate di tutti i vertici. 


L’ultima matrice che ci interessa, se vogliamo inserire nuovi oggetti, è quella di tutte 
le linee _ linien[ ]. In essa sono memorizzati i numeri di tutti gli estremi di tutti gli ogget¬ 
ti. Per il resto la sua struttura è simile a quella della matrice _punkte[ ]. 

A questo punto si comprenderà meglio la funzione schaffe_.welt. In essa infatti la 
matrice normale dell’oggetto viene reimpita con i valori necessari (mentre a quella del¬ 
la funzione viene attribuito un puntatore). I valori inseriti sono costituiti, fra gli altri, dagli 
indirizzi degli inizi di punti e di linee per ogni oggetto. 


Ora che tutto è stato preparato, ritorniamo al programma principale do _ program( ). 
In esso comincia infatti il loop principale, che deve girare finché non si preme il tasto 
< ESC >. Cosa accade nel loop? Dopo che sono state eseguite le singole trasforma¬ 
zioni e la proiezione, l'immagine viene tracciata ex novo. Dapprima però il programma 
chiama anche init_ausgabe( ). E’ qui che le matrici per oggetti e quelle per i punti 
vengono trasferite nelle matrici precedentemente descritte, chiamate trans _ obj[ ] e 
trans_pun[ ]. Tutti i calcoli successivi fanno riferimento esclusivamente a tali matrici. 
A questo punto si può veramente partire. Una dopo l’altra vengono chiamate le funzio¬ 
ni per la messa in scala, la traslazione, la rotazione e la proiezione centrale. Tutte ese¬ 
guono le necessarie moltiplicazioni di matrici con tutti i punti del mondo da rappresentare. 
E tutte vengono chiamate da una stessa routine: welt _ verteiler( ) mentre un Flag indi¬ 
ca quale operazione deve venire effettuata. Tale routine a sua volta chiama, per ogni 
singolo oggetto, un'altra routine, che si occupa dell’esecuzione dell’operazione. 

Quest’ultima routine chiama a sua volta, per ogni punto di un oggetto, la funzione 
il cui indirizzo è stato fornito come parametro (quindi, in questo caso, la routine di tra¬ 
sformazione). Siamo finalmente arrivati al punto nel quale viene trasformato un singolo 
punto. Si tratta delle routine pun_ska( ), pun_tra( ), pun_rot( ) e pun_zen( ). Qui 
hanno luogo veramente le moltiplicazioni delle matrici e le formule non ci giungeranno 
nuove. 

Quando infine tutti i punti di tutti gli oggetti sono stati trasformati, il programma ritor¬ 
na al do_ program( ). Quando sono state eseguite tutte le trasformazioni sarà possibi¬ 
le disegnare. Quindi cancelliamo tutto ciò che è sullo schermo e cominciamo. 



Anche l’operazione di disegno vera e propria viene effettuata tramite il welt _ verteiler( ). 
Icoo ciò, viene selezionata la funzione obj_zeichnen( ), che fornisce ad un oggetto 
colore prescelto. 


Siamo appena ritornati al do_ program( ) e incontriamo una riga di commento che 
zice: "portare davanti la finestra coperta", seguita da una chiamata ScreenToFront( ), 
a quale fa apparire un nuovo schermo davanti al precedente. Cosa accade ora? Sen¬ 
za averlo nemmeno notato, abbiamo applicato in diversi punti del programma un tec- 
~ca il cui effetto è chiaramente visibile. Rilanciamo il programma e premiamo uno o 
o-ù tasti del cursore affinché l’immagine cominci a ruotare. Ora premiamo brevemente 
' tasto di punto della tastiera numerica e vedremo immediatamente la differenza: l'im- 
-agine o gli oggetti cominciano a sfarfallare. Ciò è dovuto al fatto che in qualche pun¬ 
to del programma è necessario cancellare lo schermo al fine di tracciare la nuova 
~magine. Prima però che la nuova immagine sia completa, trascorre un certo tempo 
-e quale non avremo nulla sullo schermo, oppure solo una parte dell'oggetto stesso 
e effetto indesiderato di questi passaggi è lo sfarfallamento. 


Per ovviare a questo effetto esiste il trucco del Doublé Buffering, cioè, in questo ca¬ 
se del disegno nascosto. All'inizio abbiamo già menzionato il fatto che all'apertura di 
ciascuna finestra abbiamo aperto due Screen. Tuttavia è possibile osservare solo lo 
schermo anteriore, per cui, quando disegnamo, procediamo come segue: mentre la 
.ecchia immagine resta invariata sullo schermo visibile, quello invisibile viene caneel¬ 
ato e ridisegnato. Quando tutto è pronto, facciamo apparire tale schermo finora invisi- 
e con uno "ScreenToFront( )” e avremo evitato lo sfarfallamento. A questo punto, 
c schermo che ora è invisibile subisce tutte le trasformazioni del caso e così via. 


Nel programma, le variabili Fin_ Nr_s e Fin_Nr_v indicano i numeri dello scher¬ 
me visibile o nascosto (s per visibile e v per nascosto). Questo numero determina qua- 
e Rasterport viene trasferita ad ogni operazione di disegno. Al momento del cambio 
ce* 1 immagine cambiamo anche i numeri in queste due memorie. E’ tuttavia possibile 
rerrompere questa sequenza con la pressione del punto decimale, dopodiché potre- 
~o mettere dietro lo schermo che è davanti e vedere il secondo schermo. Certo, forse 
avremmo potuto evitare di aprire due schermi per il Doublé buffering, modificando so- 
c Bitmap della finestra, ma sarebbe stato più complesso. Continuiamo quindi così 
5 'acclamo attenzione al seguente svantaggio derivante: non dovremo mai toccare il 
Ssto sinistro del mouse, che attiverebbe lo schermo errato, per cui il programma ver- 
*ecbe a trovarsi completamente staccato dai nostri input. 


lassiamo alla scansione della tastiera. Se al momento l’oggetto non viene ruotato, 
sa'à possibile attendere con Wait( ) la pressione di un tasto (nella struttura newwindow 
a.evamo indicato di segnalarci qualunque pressione di un tasto, da tastiera o da mou¬ 
se Diversamente, saltiamo l’attesa e determiniamo immediatamente con Get_ Msg( ) 
se e arrivata qualche "notizia" (tasto). La "notizia” è composta dalla struttura IntuiMes- 
sage. cioè: 


~-ass 

Ccce 


Tipo di messaggio (IDCMP Flag) 
Codice RAW del tasto 
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Qualifier Tasto premuto contemporaneamente (Shift eco.) 

Mouse _x Posizione x del Mouse (solo per tasti del mouse) 

Mouse _y Posizione y del Mouse (solo per tasti del mouse) 

Con ReplyMsg( ) rinviamo il messaggio. Quindi eseguiamo i compiti richiesti con sem¬ 
plici modifiche delle variabili. Se non si deve attendere la pressione di un altro tasto, 
il Flag è sempre uguale a zero. Si tratta del caso in cui è stato premuto un tasto valido 
e l'oggetto sta ruotando. Con < ESC > la routine ha termine e rinvia un codice di erro¬ 
re a main( ). 


4.5.2 Rotazione attorno ad un asse a piacere nello spazio 

A questo punto è possibile far ruotare i nostri oggetti attorno a tutti i tre gli assi delle 
coordinate. Al fine però di ottenere un effetto globale, siamo interessati alla rotazione 
attorno ad un asse a piacere nello spazio. Può sembrare complicato ma non lo è, dal 
momento che dobbiamo solo rivolgerci alle già note matrici di trasformazione tridimen¬ 
sionale. Verificheremo ancora una volta l’utilità che ha avuto per noi l'adozione della 
scrittura in forma di matrici. 

Dapprima però dobbiamo definire l’asse attorno al quale la nostra immagine deve 
ruotare. Facciamolo con l'equazione vettoriale di una retta, a noi già nota: 

P = P 0 + s*R 

cioè, in parametri: 

x = x 0 + s*R x 

y = y 0 + s*R y 

z = Zo + s*R z 

dove: 

P — un punto calcolato della retta, con le coordinate x,y,z 
P 0 — un punto a piacere della retta, con le coordinate Xo,y 0 ,Zo 
R — vettore di direzione con componenti R z , R y , R z 
s — fattore di allungamento del vettore di direzione 

La nostra strategia corrisponde esattamente alla rotazione attorno ad un punto a pia¬ 
cere sul piano (ved. in precedenza). Cercheremo quindi di portare a coincidere ad un 
asse di coordinate l’asse attorno al quale deve venire effettuata la rotazione, e ci riusci¬ 
remo spostando la retta in modo che attraversi l'origine delle coordinate con un punto 
a piacere. Successivamente ruotiamola attorno all'asse x, in modo che venga a giace¬ 
re completamente sul piano x-z. Ha quindi luogo una rotazione attorno all’asse y, in 
modo che la retta coincida con l’asse z. A questo punto siamo in grado di eseguire 
veramente la rotazione desiderata. Ruotiamo quindi l’oggetto con l'angolo desiderato 
attorno all’asse z. Infine dovremo effettuare all’indietro ambedue le rotazioni attorno 
all’asse x ed y. La figura 4.25 chiarirà meglio il procedimento. 
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Fìg. 4,25 Passaggi per la rotazione attorno ad un asse a piacere 


Tutto inizia con la translazione della linea all'origine del sistema di coordinate, che 
otterremo con la matrice di traslazione: 

10 0 0 

0 10 0 

0 0 10 

*Xo 'Yo -Zo 1 
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T(-x o ,-y 0 ,-zo) = 












































I 


Il punto P 0 (xo,y 0 .Zo) viene quindi spostato nel punto di origine delle coordinate. Alla 
fine della nostra rotazione dovremo naturalmente rimettere a posto questo punto con 
la seguente traslazione: 

10 0 0 

r/ x 0 10 0 

HXo.yo.Zcw = 0 0 10 

x o yo ad i 

Il passo successivo si complica un po': la retta deve venire ruotata attorno all’asse 
x sul piano x-z. Sappiamo come far effettuare una rotazione, ma ci chiediamo di quale 
angolo. Per determinarlo, rispolveriamo le nostre conoscenze di geometria. Osservia¬ 
mo a tal scopo la figura 4.26. 



Fig. 4.26 Rotazione dell'asse di rotazione sul plano x-z 

Per la determinazione dell’angolo w 1( proiettiamo dapprima la retta sul piano y-z. Os¬ 
serviamo però che qui non si ha ancora nessuna rotazione. Abbiamo invece a che fare 
con una semplice proiezione parallela. Prendiamo un punto a piacere P(x,y,z) della 
retta. Tracciamo quindi da questo punto una parallela all’asse x. Il punto nel quale la 
parallela interseca il piano y-z è il punto proiettato P’ con le coordinate (0,y,z). L'angolo 
w-,, necessario al fine di ruotare la retta sul piano x-z, è quello compreso fra la retta 
proiettata e l’asse z (ved. figura). Ora è senz’altro più semplice calcolare tale angolo. 

Secondo la definizione di angolo di un triangolo rettangolo, vale quanto segue (c 
è la distanza tra l’origine delle coordinate ed il punto proiettato P’): 

sin(w,) = y/c 
cosfw,) = z/c 
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Ma c non ci è sconosciuto, in quanto, secondo il teorema di Pitagora, possiamo scri¬ 
vere quanto segue: 

c 2 = y 2 + z 2 

E con ciò potremmo calcolare, in maniera puramente teorica, l'angolo w,. Dal momen¬ 
to che però necessiteremmo di molto tempo di calcolo (dovremmo calcolare una radice e 
un seno di un arco) cerchiamo di evitarlo. Sviluppiamo quindi una matrice di trasforma¬ 
zione per questa rotazione attorno all'asse x. Com’è noto, essa sarà normalmente: 



Per le funzioni angolari utilizziamo le due equazioni di cui sopra e otteniamo: 




0 0 

z/c y/c 

-y/c z/c 

0 0 


Vediamo quindi che non abbiamo bisogno di un angolo, ma dobbiamo determinare 
c tramite estrazione di radice. La trasformazione all'indietro di cui avremo bisogno in se¬ 
guito viene quindi determinata facilmente: 




0 0 

z/c -y/c 

y/c z/c 

0 0 


Ora l'asse di rotazione giace sul piano x-z. Il passo successivo sarebbe la rotazione 
31 questa retta attorno all'asse y sull'asse z. Ciò accadrà in maniera completamente ana¬ 
loga alla rotazione precedente, come rilevabile dalla seguente figura: 


Y 



^ccazo^e Dettasse di rotazione sull'asse z 
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Anche in questo caso ci serve l'angolo di rotazione w 2 . 

Al momento della rotazione, eseguita in precedenza, attorno all’asse x, è già stata 
determinata la coordinata x del punto P. Inoltre è rimasta invariata la lunghezza del 
segmento d tra l’origine e P. Tale lunghezza può venire determinata (teorema di Pita¬ 
gora nello spazio, osserviamo ancora la fig. 4.26) con: 

d 2 = x 2 + y 2 + z 2 
= x 2 + c 2 


(Anche in questo caso calcoliamo d estraendo la radice dalla parte destra dell’equa¬ 
zione). Potremo determinare d anche dalla variabile c, a noi nota dopo l’ultima rotazio¬ 
ne. La coordinata y del punto ruotato P" è naturalmente uguale a 0 (infatti esso giace 
sul piano x-z). Determiniamo la coordinata z applicando ancora una volta il teorema 
di Pitagora (ved. figura): 

e 2 = d 2 - x 2 

= X 2 + C 2 - X 2 

= c 2 


Quindi e è uguale a c, precedentemente determinato, cosa che ci risparmia ulteriori 
calcoli. Al fine di trovare ora la matrice di rotazione desiderata, applichiamo quanto 
segue, come da fig. 4.27: 

sin(w 2 ) = x/d 
cos(w 2 ) = c/d 


La matrice di rotazione normale per una rotazione attorno all’asse y dovrebbe già 
esserci nota: 


R x (w 2 ) 


/ cos(w 2 ) 0 -sin(w 2 ) 0 \ 

10 1 0 0 1 

I sin(w 2 ) 0 cos(w 2 ) 0 I 

\ 0 0 0 1 / 


Con le 

RyCWg) = 


due ultime equazioni otteniamo: 

( c/d 0 -x/d 0 \ 

0 1 0 0 1 

x/d 0 c/d 0 I 

0 0 0 1 / 


Cosi è pronta la matrice di rotazione. Come sopra abbiamo evitato il calcolo del se¬ 
no di w 2 risparmiando il tempo di calcolo. Determiniamo ora la matrice inversa: 

c/d 0 x/d 0 \ 

0 1 0 0 1 

-x/d 0 c/d 0 I 

0 0 0 1 / 





Finalmente l'asse di rotazione giace sull’asse z del sistema di cocordinate. Ora l’og¬ 
getto può venire ruotato normalmente con la matrice di rotazione R z (a) attorno all’as¬ 
se z. Dopo ciò, invertiamo tutte le rotazioni, a tal scopo possiamo riassumere tutta 
operazione in una lunga formula: 

Rasse( a ) = 

T(-Xo.-yo.-Zo) * Rx(Wi) * Ry(W 2 ) * 

Fya) * 

Ry(-w 2 ) * R x (-w,) * T(Xo,y 0 ,Zo) 

Ricordiamo che gli angoli w, e w 2 non dovranno venire calcolati, le coordinate x 0 , 
y 0 e z 0 indicano un punto dell'asse di rotazione e l’angolo a è l’angolo di rotazione 
effettivo attorno all’asse. 

E naturalmente saremo ora in grado di determinare da tutte queste moltiplicazioni 
di matrici una singola matrice R aS se( a )’ che esegua tutte insieme le varie rotazioni e in¬ 
versioni di rotazioni. Per tale matrice (o almeno per il prodotto di cui sopra) dovremo 
moltiplicare ciascun punto da ruotare. 
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CAPITOLO 5 


Linee e superfici nascoste 
Il problema e le soluzioni 





A questo punto siamo in grado di definire immagini spaziali complesse, che devono 
venire spostate nello spazio, ingrandite e fatte ruotare attorno ad assi a piacere, devo¬ 
no venire proiettate sullo schermo tenendo conto del punto di fuga, dell’osservatore 
e via di seguito. Una cosa ci ha sicuramente disturbato finora: tutti gli oggetti, sia picco¬ 
li, che grandi, erano trasparenti. Gli angoli posteriori, che sarebbero coperti, erano an- 
ch’essi visibili, come se ci trovassimo di fronte a modelli in filo metallico (wire trame). 

La rappresentazione di tali immagini tracciate coerentemente come modelli di filo 
è la maniera più semplice di proiezione spaziale, dal momento che non ci interessa 
quali linee e punti dobbiamo tracciare e quali no. Tuttavia, per ottenere una impressio¬ 
ne ancora migliore di una immagine spaziale, dovremmo tentare di prendere noi l’ini¬ 
ziativa. 

Esistono gli algoritmi più svariati per le applicazioni più diverse, atti alla copertura 
delle linee e superfici nascoste. Di seguito impareremo anche questi. 


5.1 Ancora più semplice: 

Linee nascoste in funzioni tridimensionali 


5.1.1 II principio 

Nel presente e nei Capitoli seguenti vogliamo cercare di ottenere due vantaggi in 
una volta: uno di questi sarà di soddisfare il problema delle linee coperte, l'altro ci offri¬ 
rà una interessante possibilità di produrre immagini meravigliose con l'aiuto delle fun¬ 
zioni tridimensionali. 

Le funzioni bidimensionali ci sono certamente già note. Chi non ha mai visto almeno 
una volta una equazione con due incognite (una equazione della retta, per es.)? In ge¬ 
nerale una funzione simile può venire espressa come segue: 

y = f(x) 

A destra abbiamo una espressione a piacere con tutti i calcoli possibili e impossibili, 
le funzioni di seno e logaritmo ecc. che contengono tutte una sola incognita: x. Il risul¬ 
tato di un simile termine diventa poi il valore che verrà inserito per y. Il risultato dipen¬ 
derà dal valore che inseriremo per x. Si usa dire: y dipende da x, o è funzione di x. 
Un esempio semplice è: 

y = x 

In questo caso y assume lo stesso valore di x. 

Una tale funzione potrà venire rappresentata anche graficamente. In questo caso 
si utilizzerà un sistema bidimensionale di coordinate o piano cartesiano. Su di un asse 
conteremo il valore y. sull'altro il valore x. Il risultato sarà quindi la curva sopracitata 
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(nel caso suddetto una diagonale che passa attraverso l'origine). Ma per quale motivo 
vi racconto ciò? Lo sappiamo già benissimo. Ma ora diventa più interessante: ci sono 
funzioni che non vanno d'accordo con i due parametri x e y. In tali funzioni entra in 
gioco un terzo parametro. Di conseguenza tali funzioni hanno la seguente forma: 

V = f(x,z) 

Il valore della funzione y dipende anche dalle due variabili x e z (in alcuni testi viene 
indicato anche z = f(x,y)). Per la rappresentazione grafica di tali funzioni, non riusci¬ 
remmo a procedere con la semplice tecnica di disegno bidimensionale. Inseriremo quin¬ 
di un asse z che ci apre alla dimensione dello spazio. Dovremo quindi ritornare alle 
formule tridimensionali che abbiamo appreso nei Capitoli precedenti. 

Infatti tale applicazione non si limita solo al piacere dell’osservazione, ma rende pos¬ 
sibile rappresentare in un solo diagramma delle correlazioni complesse, che dovreb¬ 
bero venire rilevate, in altre maniere, da numerose immagini singole. Non solo le 
equazioni matematiche si adattano alla maniera qui esposta, anche le tabelle statisti¬ 
che sono funzioni matematiche rigorose che possono venire rappresentate in questo 
modo. L’unica differenza è che con le tabelle non vengono calcolati i valori singoli, 
come invece accade con le equazioni. 

Prendiamo un esempio: supponiamo che ci interessino il volume di affari annuo del¬ 
la nostra impresa (o del nostro patrimonio familiare). Nulla è più facile di ciò: appronte¬ 
remo dapprima un tabella, nella quale inseriremo l'anno e la cifra relativa. A questo 
punto ha luogo il disegno con gli anni sull'asse x orizzontale e con le cifre sull’asse 
y verticale. Ogni valore y (cifra) è perciò dipendente dal valore x corrispondente (an¬ 
no). I diagrammi tridimensionali potranno essere necessari se si desiderano tracciare 
anche le cifre delle imprese concorrenti o dei membri della famiglia. Tracceremo nello 
spazio un ulteriore asse z, sul quale ordineremo le singole voci da calcolare. In questa 
maniera otterremo una visione ottimale della situazione generale e i figli o il coniuge 
potranno vedersi ridurre tempestivamente il denaro per le piccole spese. 

A questo punto dovremo rivolgere di nuovo la nostra attenzione al problema princi¬ 
pale. Nel nostro caso apprenderemo le tecniche, sulla base delle equazioni matemati¬ 
che (funzioni), con le quali si sono ottenuti i valori delle funzioni. Ciò ci farà risparmiare 
esecuzione delle tabelle. 


Tramite l'esecuzione di una cosiddetta tabella di valori, otterremo il grafico (o la cur- 
va) di una funzione e su tale tabella ordineremo tre colonne per i valori di x, y e z. Nel 
nostro esempio si sono manipolate in primo luogo le funzioni seguenti: 



y = f(x,z) = x 2 + z 2 

Come possiamo a realizzare nel programma il calcolo di questa funzione nel modo 
ciò efficace? Se dovessimo rappresentare solo una funzione con due incognite (cioè 
y = f(x) = x 2 ), il problema sarebbe veramente semplice da risolvere. Il nostro compi¬ 
to sarebbe quello di incrementare il valore x proveniente da un determinato punto, se- 
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guendo passi ben determinati, in un loop FOR...NEXT fino ad un valore finale. Ad ogni 
ciclo del loop si calcolerebbe il valore y mancante dipendente dal valore x. Entrambi 
i valori ottenuti potranno quindi venire visualizzati molto semplicemente sullo schermo. 
Ecco lo schema di un plotter di funzione bidimensionale: 

FOR x = <vai or e iniziale di x> TO <valore finale> STEP <ampiezza passo> 
y = f Cx) 

PLOT x,y 
NEXT x 


Con le funzioni tridimensionali, invece, abbiamo due variabili x e z, dalle quali dovrà 
venire determinata y, la terza. In questo caso ci aiuteremo con due loop FOR...NEXT 
nidificati. L'uno incrementa il valore x, l'altro il valore z: 

FOR z = <val. iniz. di z> TO <val. fin. di z> STEP Camp. passo z> 

FOR x = <val. iniz. di x> TO <val. fin. di x> STEP Camp, passo x> 
y = f ( x, z ) 

PLOT x,y,z 
NEXT x 
NEXT Z 


In questo caso avremo applicato z nel loop esterno e x in quello interno. Questo pro¬ 
cedimento non è indispensabile, ma spesso viene raccomandato per tracciare oggetti 
tridimensionali. 

Il comando PLOT x,y,z sarà difficile da trovare in un manuale del linguaggio Basic. 
Si dovrà prendere in considerazione un punto tridimensionale, tenendo conto di tutte 
le altre trasformazioni, da proiettare sul piano tramite proiezione centrale. Il seguente 
programma in Basic chiarirà le cose: 


> » tt t * TfCf.f.f ff.T.f T* fffTtrf:** 

• :** ** 

' Funzioni tri dimensionaii 1 ** 

' *:* ** 

» *:*:*:t;T:**********:*:*:****:**:f*:*:******* 

PI = 3.141533 

SCREEN 2,£40,200,2,2 ’ Nuovo schermo 

WINDOW 4,,<0,0>-<631,186),0,2 ' Nuova finestra 

PALETTE 0, O, 0, O ' Impostazione colori 

PALETTE 1, .0, 0, . 33 

PALETTE 2,.47,.07, 1 

PALETTE 3, 1, .£,.67 

COLOR 2 
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' Parametri di transformazione 
’ Scala: 


sx = 40 
sy = £ 

5Z = 20 

’ Transiazione: 

tx = 0 
ty = 0 
tz = 0 

’ Rotazione: 

rx = 13 
ry = -45 
rz = 0 

’ Osservatore: 


bx = 0 
by = 0 
bz = -300 


' Translazione piano: 

tex = 300 
tey = 90 


' Costanti per le rotazioni: 


r x = 

rx*PI/lS0 



ry * 

ry*PI/180 



rz = 

rz*PI/180 



si. X 

= SIN(rx) : 

CO. X 

= COS(rx) 

si .y 

= SIN(ry) i 

; co.y 

= COS(ry) 

si . z 

= SINCrz) : 

: co. z 

= C0S<rz) 


A 

B 

C 

D 

E 

F 

G 

H 

I 


co.y * co.z 
co.y * si.z 
—si .y 

si.x#si.y*co.z 
si.x*si.y*si.z 
si.xtco.y 
co.x*si.y*co.z 
co. x*si . y*si . z 
co.x*co.y 


— co.xtsi.z 
+ co.x$co.z 

+ si.x*si.z 

— si. xcfcco. z 
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f Valori di inizio/fi ne/ampiezza passi: 

sta.x = 3 : en.x = -3 : ste.x = -.01 
sta,: = 4 : èri,: — —3 : st&.z —.5 

’ Funzione: 

DEF FNfunix.z) = x*x - z*z 


' Disegno: 

FOR z=st a.z T0 en.z STEP ste.z 
FOR x=sta.x TO en.x STEP ste.x 

’ Calcolo valore della funzione: 

y - FNfun<x,z) 

’ Trasformazioni: 

xtl = sx*x + tx 

yt1 = sy*y + ty 

ztl = sz *z + tz 

xt2 = xtITA + ytl*B + ztl*C ’ Rotazione 
yt2 = xtl*D + ytl*E + ztl*F 
zt2 = xtl*Q + ytl*H + ztl*I 

’ Proiezione centrale: 

zuis = zt2 - bz 

xe = bx - bz * <xt2-bx>/zwis 

ye = by - bz * Cyt2-by)/zwis 

’ Tracciamento del punto: 

PSET Ctex + xe, tey — ye) 

NEXT x 
NEXT z 

UHILE CINKEYS = “") 

WEND 

UlNDOl-J CLOSE 4 
SCREEN CLOSE 2 


' Scalatura 
' e translazione 
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Dopo l’apertura di un nuovo schermo con finestra, il programma esegue alcune ini- 
zializzazioni, che riguardano prima di tutto i diversi parametri per le trasformazioni. La 
routine dovrà essere in grado di far ruotare il grafico della funzione attorno ai tre assi 
spaziali, utilizzando la matrice di rotazione totale, che abbiamo visto nell'ultimo Capito¬ 
lo, per le rotazioni attorno agli assi x, y e z. Di conseguenza, calcoleremo prima di tutto 
i fattori di rotazione A, B, C, D, E, F, G, H e I, che rimarranno costanti nell'intero pro¬ 
gramma (ci risparmieremo con ciò calcoli inutili nei loop successivi). 


In questi parametri di trasformazione abbiamo naturalmente spazio a disposizione 
per modifiche. I valori momentaneamente impostati producono una grafica veramente 
meravigliosa. 


A questo punto, il programma imposta dei valori di inizio e di termine nonché le am¬ 
piezze di passo per le coordinate x e z, che verranno incrementate (o decrementate) 
nei loop FOR...NEXT seguenti. Nel caso in cui si desideri ottenere una visione grosso¬ 
lana deH’immagine, si raccomanda di elevare da 10 a 30 ste.x (cioè l'ampiezza di x), 
poiché l’esecuzione del disegno richiede normalmente un po' di tempo. 


La struttura di entrambi i loop FOR...NEXT nidificati l'uno nell'altro è già stata studiata. 
A questo punto i valori corrispondenti della funzione vengono calcolati, ampliati, trasfe¬ 
riti, ruotati e proiettati tramite proiezione centrale, quindi con le coordinate risultanti, 
viene tracciato un punto. Si dovrà attendere un po' di tempo prima che il risultato ven¬ 
ga visualizzato. E’ sufficiente una pressione di tasto per porre fine al programma. 





5.1.2 Quadrettatura (Crosshatching) 

E' probabile che il prodotto del nostro programma non ci abbia particolarmente sod¬ 
disfatti. Ma lasciatemi tempo! Grazie ad un piccolo trucco è infatti possibile raggiunge¬ 
re un effetto particolarmente interessante. Finora abbiamo rappresentato solo curve 
singole per determinati valori z. Tuttavia, sappiamo che esistono stupende superfici 
ricurve, decorate da una rete, che amplifica particolarmente l’effetto spaziale. 

Una tale quadrettatura (Crosshatching) si raggiunge disegnando di una serie di cur¬ 
ve ruotate di 90 gradi attorno all’asse y sull’immagine di cui sopra. Si tratta solo appa¬ 
rentemente di una rotazione, poiché l'immagine rimane sempre nella propria posizione, 
siccome le ampiezze per i comandi di STEP dei loop z e x vengono scambiate fra loro. 
A questo punto le curve sono completamente perpendicolari a quelle tracciate in pre¬ 
cedenza. Osservate il risultato! 


’ :*##****.#**.***#****##****::****:***#* 

’ ** ** 

’ *■* Funzioni tridimensionaii 2 ** 

’ ** ** 

’ 4:****:t**:M:*:i:***************:»:***:** 

PI = 3.141593 

SCREEN 2,640,200,2,2 ' Nuovo schermo 

WINDOUJ 4,, (0,0) — (631, 186) , 0,2 ’ Nuova finestra 

FALETTE 0, O, 0, 0 ’ Impostazione colori 

PALETTE 1, .0, 0, . 93 

PALETTE 2,.47,.87, 1 

PALETTE 3, 1, .6,.£7 

COLOR 2 

’ Parametri di transformazione: 

’ Scala: 

sx = 40 
sy = 6 
sz = 20 

' Translazione: 

tx = 0 
ty = 0 
t; = 0 
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’ Rotazione 


rx = 15 
ry = —45 
rz = 0 

’ Osservatore! 

bx = 0 
by = 0 
bz = —300 

' Translazione piano: 

tex = 300 
tey =90 

' Costanti per le rotazioni: 


r x = 

rx*PI/180 



ry = 

ry*PI/180 



r z = 

rz*PI/180 



si . X 

= SINCrx) : 

CO. X 

= COSCrx) 

si.y 

= SINCry) : 

co.y 

= COS(ry) 

si. z 

= SIN(rz) : 

co. z 

= CQS(rz) 


A = co.y * co.z 
B = co.y * si.z 
C = -si.y 

D = si.x*si.y*co.z - co.x*si.z 
E = si.x*si.y*si .2 * co.x*co.z 
E = si.xtco.y 

G = co.x*si.y#co.z ♦ si.x*si.z 
H = co.x*si.y*si.z - si.x*co.z 
I = co.x*co.y 

’ Valori di inizio/fine/ampiezza passi 

sta.x = 3 : en.x = -3 : ste.x = -. 
sta.z = 4 : en.z = —3 : ste.z = —. 

* Funzione: 

DEF FNfunCx.z) = x*x - z*z 


’ Disegno: 


L 


o in 




FOR za -- 1 TG 2 

FQF: 2 =sta ,2 TO en.z STEP ste.z 
FOR x=sta.x TO en.x STEF ste.x 

' Calcolo valore della funzione: 

y = FNfunCx,z) 

' Trasformazioni: 

xtl = sx*x + tx ’ Scalatura 

ytl = sy*y + ty ' e fransi azione 

ztl = sz*z + tz 

xt2 = xtl*A + yt1TB + ztl*C ’ Rotazione 

yt2 = xtlTD + ytITE + ztl*F 

zt2 = xtl*8 + ytlTH + ztITI 

’ Proiezione centrale: 

zwis *= z12 - bz 

xe = bx - bz. * C xt 2-bx)/zwis 

ye = by — bz * (yt2—by)/zwis 

1 Tracciamento del punto: 

PSET (tex + xe, tey — ye) 

NEXT X 
NEXT z 

IF za = 1 THEN ' Al primo passaggio le ampiezze 

zwis = ste.x ’ dei passi vengono scambiate 

ste.x = st e.z 
ste.z = zwis 

COLOR 3 
END IF 

NEXT za 

WHILE CINKEY* = ""> 

WEND 

WINDOW CLOSE 4 
SCREEN CLOSE 2 
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Il programma non è cambiato molto. Si è aggiunto semplicemente un terzo loop 
FOR...NEXT che contiene tutto il resto. Il grafico viene in questo modo tracciato due 
volte su due assi diversi. Se il risultato non fosse ancora soddisfacente, si consiglia di 
leggere più avanti. 


5.1.3 Le linee nascoste 

Con le nostre funzioni non abbiamo fatto molti progressi rispetto al punto in cui era¬ 
vamo nell'ultimo Capitolo con gli oggetti in generale, il grafico tridimensionale è ancora 
trasparente e le linee coperte sono ancora visibili. Osserveremo ora un procedimento 
semplice per l’eliminazione di questo difetto. 

Nella vita di tutti i giorni normalmente non riusciamo a guardare attraverso le cose 
che osserviamo a meno che non siano di vetro, mentre qui accade il contrario. Le no¬ 
stre linee si intersecano, mentre quelle anteriori, che sorreggono una superficie, do¬ 
vrebbero coprire quelle posteriori. 

Cerchiamo di prendere vantaggio dal fatto che iniziamo a disegnare con valori elevati 
o: z (ecc.) e il grafico viene eseguito dalla parte posteriore verso la parte anteriore. Con- 
sderiamo ogni valore z come una superficie parallela ai piani x-y. Quando tracciamo 
ta superfici dalla parte posteriore a quella anteriore, quelle anteriori copriranno sempre 
cxù quelle posteriori. Nel programma cancelleremo quindi intere superfici, in modo che 
tutte le superfici retrostanti vengano eliminate. Cancelleremo quindi dal punto appena 
calcolato e tracciato della curva, in linea verticale fino al bordo inferiore della finestra. 

In questo modo otteniamo un controllo della struttura grafica della funzione. Se nel 
suddetto programma aggiungiamo un paio di righe, verremo ad avere chiaramente 
i seguente effetto: 
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’ ************X*%****X***%*.*X.XXXXt* 
' ** ** 
’ ** Funzioni tridimensionali 3 *# 
1 "Ft 

' ***********#*#**##**#**#*#**#**** 

IF FRE<-1>,+FRE<0) < 36000S. THEN 
END 
END IF 


CLEAR , 36000?* 

DIM fenster/.C14962) 

PI = 3.141593 

SCREEN 2,640,200,2,2 
WINDOW 4,,<0,0J-(631,186),0,2 

PALETTE 0, O, O, 0 
PALETTE 1, .8, 0,-93 

PALETTE 2,.47,.67, 1 

PALETTE 3, 1, -6,-67 

COLOR 2 

' Parametri di trasformazione: 
• Scala: 

sx = 40 
sy = 6 
si = 20 

’ Tran si azione: 

t x = 0 
ty = 0 
tz = 0 

' Rotazione: 

rx = 15 
ry = -45 
rz » 0 


’ 36000 Bytes per 1» AmigaBASIC 
' Memoria immagine video 

' Nuovo schermo 
' Nuova finestra 

’ Impostazione colori 
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Osservatore 


bx = 0 
by = 0 
b; = -300 


' Tr ansi ai ione pianoi 


tex = 300 
tey = 90 

' Costanti per le rotazioni: 

rx = rx*PI/180 
ry = ry*PI/180 
rz = rz*PI/180 


si.x = SIN(rx) : co.x " C0S<rx> 
si.y = SIN(ry) : co.y = COSCry) 
si.z = SIN(rz) : co.z = COSCrz) 

A = co.y * co.z 
5 = co.y * si.z 
C = -si.y 

D “ si.x*si.y*co.z - co.xtsi .2 
E = si.x*si.y*si.z + co.x*co.z 
P « si.x*co.y 

3 = co. x*si . y*co. z + si.xTsi.z 
- = co.x*si.y*si.z - si.x*co.z 
I * co. xtco.y 


’ Valori di inizio/fine/ampiezza passi 


sta.x = 3 : en.x * -3 : ste.x *= -. 
sta.: = * : en.z = -3 : ste.z = -. 


* funzione: 

DET FNfun(x,z) = x*x - z*z 


' Disegno: 


za = 1 TO 2 

POP z=sta.z T0 en.z STEP ste.z 
POP x=sta.x T0 en.x STEP ste.x 

* Calcolo valore della funzione: 

y = FN fun(x,z > 


O \f) 





’ Trasformazioni: 


xt 1 

= 

sx*'x 

+ t X 


* Scalatura 

ytl 

= 

sy*y 

+ ty 


' e tr ansi azione 

ztl 

— 

sz*z 

+ tz 



xt2 

= 

xt 1*A 

+ ytl*B 

+ 

ztl *C- f Rot az i one 

yt2 

= 

xt 1*D 

+ ytITE 

+ 

zt 1*F 

zt2 

= 

xt 1*G 

+ ytlTH 

+ 

zt 1*1 


' Proiezione centrale: 

zuis 53 zt2 - bz 

xe = bx - bz * <xt2-bx>/zwis 

ye = by — bz * <yt2-by)/zwis 

' Disegno del punto e cancellazione linea sotto di esso: 

PSET <tex + xe, tey - ye) 

LINE (tex+xe,tey-ye+1) — <tex+xe,200),0 

NEXT x 
NEXT z 

IP za = 1 THEN ' Al primo passaggio le ampiezze 

zuis = ste.x ’ dei passi sono scambiate 

ste.x = ste.z 
ste.z = zwis 

' Memorizzazione intermedia finestra: 

GET (0,0)-(631,186), fensterX. 

COLOR 3 

CLS v e cancel1azione 

END IF 

NEXT za 

PUT (0,0), f énst er'X, OR ' Operazione di OR con la seconda finestra 

WHILE CINKEY* = "“) 

WEND 

WINDOW CLOSE 4 
SCREEN CLOSE 2 
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Cosa accade? In questo momento nel nostro programma le due parti di immagine 
non vengono disegnate l'una sull’altra. Infatti la routine effettua una memorizzazione 
intermedia della prima parte. Per questo serve il comando GET. Esso trasmette il con¬ 
tenuto totale della finestra alla matrice integrale finestra %( ), che è stata scelta all’inizio 
del programma (ved. manuale AmigaBasic sotto la parola GET). A tale scopo si do¬ 
vrebbe aver riservato una memoria sufficiente (CLEAR). 


La prima parte effettua una cancellazione dei punti sotto ogni punto con il comando 
LINE, mentre il risultato viene memorizzato in maniera intermedia per mezzo di GET. 
Lo schermo ridiventa vuoto e la seconda parte del grafico viene creata nella stessa 
maniera. Quando alla fine è tutto pronto, si azionerà il comando PUT. Esso, tramite 
un'operazione logica di OR, fonde i due grafici in uno solo. 


Ciò che'non è ancora soddisfacente al cento percento sono i margini. Si potrebbe 
anche desiderare di vedere la curva dalla parte inferiore. Ciò non è permesso dall'al¬ 
goritmo. Per eliminare tale manchevolezza, si potrebbe cancellare la linea successiva, 
ma non all'interno del bordo inferiore dell'immagine, bensì solo dal punto sottostante. 
E anche questo problema è risolto. Il disegno effettuerà più volte delle memorizzazioni 
intermedie tramite tale metodo, per una durata notevole. Tentate pure qualche volta 
a trasformare questo programma! 


Ecco un’idea per ottimizzare il procedimento di cancellazione: annotare di volta in 
volta le coordinate, finora disegnate, dei piani y momentaneamente inferiori e cancel¬ 
lare solo fino a quel punto. 


Rappresenteremo nella prossima sezione un altro interessante algoritmo per la can¬ 
cellazione delle linee nascoste nelle funzioni tridimensionali. 
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Eccovi ora qualche funzione che potrete visualizzare con il vostro programma: 


y = x 2 + z 2 
y = 1/(1 + x 2 + z 2 ) 
y = SQR(1 - x 2 /4 - z 2 /9) 
y = 20*SIN(0.1 *SQR(x 2 + z 2 ) 
y = SIN(x)/x + SIN(z)/z 
y = SIN(1/x)/x + SIN(1/z)/x 


5.2 Un piccolo intervallo: un bel plotter di funzione 


Ci troviamo.ora in grado di rappresentare sullo schermo meravigliose funzioni tridi¬ 
mensionali. Ciò che ci manca è un programma universale, che sia adatto ad ogni fun¬ 
zione a piacere e che raffini un pochino le rappresentazioni. Di conseguenza, bisogna 
occuparsi del programma seguente, come ulteriore tappa importante di questo libro. 


Iniziamo un’altra volta e lasciamoci affascinare dalla singolare bellezza della grafica 
dell’Amiga: 



Fig 5.4 Plotter di funzioni tridimensionali 1 
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I i* :( rf * * * * * * + 4: :|; j|: * * 4 ; * * 4 4; 9|: % * * * * 


' *'* i II grande ** 

' ** Plotter funzionale ** 
1 ** tridimensionale + ; » 

' * * * * 


************ ***************** 


'Apertura di Schermi e Finestre / Impostazione dei colori: 
SCREEN 2,640,200,3,2 
wxX = 631 ‘ 

wyX ■= 186+10 

UJINDOW 4, , <0,0) - (wxX,wyX-10) ,0,2 


PALETTE 0, 
PALETTE 1, 
PALETTE 2, 
PALETTE 3, 
PALETTE 4, 
PALETTE 5, 
PALETTE 6, 


0 , 0 , 0 

.3, 0,.93 

47,.87, 1 

1,.47,.53 
.4, .6, 1 

1, .6,.67 
.8,.33, .4 


'Colore Motivo di sfondo 
'Colore rete 

'Colore superiore superfice rete 
'Colore sistema delle coordinate 
'Colore cornice anteriore 
'Colore cornice laterale 


COLOR 2 


'Il Flag seguente indica se vogliamo immettere 
'i diversi Parametri tramite Input (flagX-0) 

'o direttamente nel programma (flagX=l>: 

f 1 ag?< = 1 


'Qui immettiamo la funzione tridimensionale 
'desiderata f(x,z>: 

DEF FNfun(x.z) = 20+SIN<.1*SQR<x*x+z+z>> 

* **************** ***************** ************ 


'Immissioni di Input: 

* «a****************** 


LOCATE 

1,15: 

PRINT 

"Immissione dei parametri di funzione" 

LOCATE 

2, 15 : 

PRINT 

••*** 4 * + * * * * 4 : *♦♦♦*♦*♦*♦♦**♦ * ♦ * * * * * * * * * •' 

LOCATE 

4,5 : 

PRINT 

"Intervallo xs Partenza:" 

LOCATE 

5,24 : 

PRINT 

"Fine:" 

LOCATE 

6,5 : 

PRINT 

"Intervallo y: Partenza:" 

LOCATE 

7,24 : 

PRINT 

"Fine:" 

LOCATE 

8,5 : 

PRINT 

"Intervallo z: Partenza:" 

LOCATE 

9,24 : 

PRINT 

"Fine:" 

LOCATE 

11,5 : 

PRINT 

"Messa in scala dello spazio: Fattore x 

LOCATE 

12,23 : 

PRINT 

"Fattore y:" 

LOCATE 

13,23 : 

PRINT 

"Fattore z:" 

LOCATE 

15,5 : 

PRINT 

"Rotazione spaziale: Asse x:" 

LOCATE 

16,29 : 

PRINT 

"Asse y:" 
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LOCATE 

17,23 : 

PRINT 

"Asse z:" 

LOCATE 

19,5 : 

PRINT 

"Numero dei punti x 

LOCATE 

20,5 : 

PRINT 

"Grandezza rete dir< 

LOCATE 

21,5 : 

PRINT 

"e in direzione z:" 

LOCATE 

22,5 : 

PRINT 

"Cornice 

LOCATE 

23,5 : 

PRINT 

"Sistema coordinate 

IF flagX = 1 THEN 


GOTO 

start 

•Parametri dal programma 

END IF 




'Input : 
LOCATE 

4. 35 : 

INPUT 

xa 

LOCATE 

5, 35 : 

INPUT 

xb 

LOCATE 

6,35 : 

INPUT 

ya 

LOCATE 

7, 35. : 

INPUT 

yb 

LOCATE 

8,35 : 

INPUT 

za 

LOCATE 

9,35 : 

INPUT 

zb 

LOCATE 

11,35 : 

INPUT 

sx 

LOCATE 

12,35 : 

INPUT 

sy 

LOCATE 

13,35 : 

INPUT 

sz 

LOCATE 

15,3u : 

INPUT 

rx 

LOCATE 

16,35 : 

INPUT 

ry 

LOCATE 

17,35 : 

INPUT 

rz 

LOCATE 

19,35 : 

INPUT 

rech.gen 

LOCATE 

20,35 : 

INPUT 

netz.x 

LOCATE 

21,35 : 

INPUT 

netz.z 

LOCATE 

22,35 : 

INPUT 

umrahm* 

LOCATE 

23,35 : 

INPUT 

kreuz* 

'alcuni altri 

valori 

da impostare: 

tx*0 : 

ty=0 : 

tz = 0 


beo.x ; 

= 0 : beo.y « 

0 : beo.z = -400 

'Parametri di 

trasformazione del piano: 

texfe = 

wxX/2 

'circa il centro della 

teyfc = 

wyl</2. 5 



sex& = 

1 



seyS< = 

2 




<s/n> : “ 


GOTO welter 


'In alternativa potremo immettere qui i divers 
'Parametri, anche di rettamente nel programma: 


start: 


xa 

= 

-60 

xb 

= 

60 

ya 

= 

-30 

yb 

= 

60 

za 

= 

-60 

zb 

* 

60 

sx 

= 

3 


'Partenza Intervallo x 
'Fine Intervallo x 
'Partenza Intervallo y 
'Fine Intervallo y 
•Partenza Intervallo z 
'Fine Intervallo z 

'Scala dello spazio in direzione x 
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sy = 3 
sz = 3 
tx = 0 
ty = 0 
tz = 0 
rx = 30 
ry = -40 
rz = 0 
beo.x = 0 
beo.y = 0 
beo.z = -400 
rech.gen = 30 

netz.x «= 15 


netz.z = 30 

umrahnf = "s" 
kreuzt = "s" 


'Scala dello spazio ir» direzione y 
'Scala dello spazio in direzione z 
'Traslazione dello spazio in direzione x 
’Traslazione dello spazio in direzione y 
'Traslazione dello spazio in direzione z 
'Rotazione dello spazio attorno all'asse 
'Rotazione dello spazio attorno 


'Rotazione dello spazio 
'Coordinate osservatore 


5» 11 ' asse y 
attorno all'asse z 


'Numero dei punti da calcolare 
'per ogni intervallo x (Riga) 

'Dimensione reticolo in numero di righe per 
'Intervallo x (Righe) 

'(rech.gen deve essere un multiplo intero 
'di netz.x) 

'Dimensione reticolo in numero di righe per 
'Intervallo z 
'Attivazione cornice 
'Attivazione sistema coordinate 


'Parametri di-trasformazione del piano:- - 
tex& s wxX/1.3 'circa il centro della finestra 
t-ey?< = wy7</3 

sexSc = 1 'Messa in scala 

sey& = 2 


welter : 

PI = 3.141593 

' Matrici di punti per la memorizzazione intermedia di due colonne 
DIM rnerk. x8< 4rech. gen-1, 1 ) , rnerk. y!< (rech. gen-1, 1 > 

'Memorizzazione del Pattern: 

DIM feldlZO), feld2%(3) 


’ Profondità* suolo: 
boden = ya 

' Costanti per la rotazione: 


rx 

« rx*PI/ISO 


'Gradi 

-> Radianti 

ry 

« ry*PI/180 




rz 

= ry*P1/130 




A = 

COS(ry)*C0Sl 

E rz ) 



B = 

COS(ry)*SINi 

(rz) 



C = 

-SIN < ry) 




D =* 

SIN(rx)*SINi 

Ery)*C0S(rz) 

- COS(rx) 

♦SIN(rz) 

E = 

SIN(rx)*SINi 

1 ry> *SIN(rz) 

+ COS(rx) 

♦COS(rz) 

F = 

SIN(rx)*C0Si 

(ry) 
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a = COS (rx)*SIN(ry)*COS(rz) + SIN(rx)*SIN(rz) 

H = COS <rxl*SIN(ry)*SIN(rz) - SIN(rx)*COS(rr> 

I = COS(rx)*COS(ry) 

'Calcolo ampiezza» 

IF rech.gen < 2 THEN 

F'RINT "Precisione di calcolo troppo bassa! " ! GOTO Stp 
END IF 

ste.z = (zb-za)/(netz.z-1) 
ste.x = (xb-xa)/(rech.gen-1) 

IF ste.z<0 OR ste.x<0 OR ya>yb THEN 

F'RINT "Errore nell'input di intervallo!" : GOTO Stp 
END IF 

' Numero passaggi di calcolo per ogni riga verticale di rete: 
anz.netzX = INT(rech.gen/netz.x) 

' Pattern per la definizione dell'intero schermo: 

feldlX(0) = &HCCCC 

feldlJi(l) = J.H3333 

feldlK (2) ■ &HCCCC 

feldlX(3> = &H3333 

' e per la funzione: 
feld2X < 0) = S.HFFFF 'fcHAAAA 

feld2X ( 1 ) = &HFFFF * &H5555 

feld2X(2> = S.HFFFF ' &HAAAA 

feld2K (3) = t &HFFFF ’ &H5555 

PATTERN ,feldlX 

LINE (0,0)-(wxX,wyZ),1,BF ' Riempimento schermo con il motivo 
PATTERN ,feld2X ‘ Impostazione secondo motivo 

POKE WINDOW<S>+27,2 ' Colore del 1'Area-OUTLINE-Pen 

flags = WINDOW(S)+32 

F'OKEW flags,PEEK(flags) OR S ' Impostazione del 1 'AreaOut 1 ine-F 1 ag 

' Numero della matrice di righe attuale 
• Numero dell'ult-ima matrice di righe 


r.aktX = 0 
r.lastX = 1 


Routine di tracciatura: 





' Tracciatura del sistema di coordinate: 

IF krsui* = "s" THEN 

IF za<0 AND zb>0 AND xa<0 AND xb>0 AND ya<0 AND yb>0 THEN 
COLOR 4 


x*xa*1.3:y=0:z*0:GOSUB transform:PSET 
x=xb*1.3:y=Ci:z=ù:GOSUB transform:LINE 
x=0:y=ya*1.3:z=0:GOSUB transform:PSET 
x=0:y=yb*l.3:z=ù:GOSUB transform:LINE 
x=0:y*0:z=za*1.3:GOSUB transform:PSET 
x=0:y=ù:z=zb*l. 3:GOSUB transform:LINE 
END IF 
END IF 


<xlS,,yl&> 

- <xlS«, ylS<> 
(xl&.ylS,) 

(xlSn y 1S.) 

-(xl&,yl&) 


FOR z=zb TO za STEP -ste.z 

zwis X = r.aktX ' Scambio numeri della matrice di righe 

r.aktX = r.lastX 
r,. last '/. - zwisX 

n.zaehlX - -1 1 Contatore per reticolo 

r-zaehlX = 0 ' Contatore per matrice di riohe 

COLOR 3 

FOR x=xa TO xb STEP ste.x 


'Calcolo valore funzione: 
y = FNfun(x,z) 

GOSUB transform t ' Trasformazione coordinate 

GOSUB zeichne * tracciato campo / annotazione coord. ecc. 

NEXT x 


IF zOzb AND umrahm*="s" THEN 


rette = z • salvare z 

retteS = x 
COLOR 6 


' Tracciato parete destra/sinistra: 
FOR sei teli = 1 TO 2 



IF seiteX = 1 THEN ' Parete sinistra 
' Visibile? 

IF merk.xk (0, r. lastX) >= merk. xS< <0, r. aktX) THEN skip 

xvu = xa : zvu = z : yvu = boden 

xhu = xa : zhu = z+ste.z : yhu = boden 

xho = xa : zho = zhu : yho « FNfun(xho,zho) 

xvo = xa : zvo = zvu : yvo = FNfun(xvo,zvo> 

ELSE ' Parete destra 

' Visibile? 

IF merk. xS< (r. zaehlX-1 , r. last/O < = rnerk. xS< (r. zaehlX-1. r . aktJO THEN skip 
xvu = x-ste.x : zvu * z : yvu • boden 
xhu 1 xvu : zhu = z+ste.z : yhu = boden 
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xho = xvu : zho = zhu : yho = FNfun (xho, zho) 
xvo = xvu : zvo = zvu : yvo s FNfun(xvo,zvo) 
END IF 

1 Punti anteriori inferiori: 

>; = xvu : y = yvu : z = zvu 
GOSUB transform 

IF yl«c >* wyX THEN ylS< = wyX-1 
ho 1 d• x& = x 1 & : ho1 d. y & = y 1 Se 
GOSUB makearea 

' Punti posteriori inferiori: 
x * xhu : y = yhu : z “ zhu 
GOSUB transform 

IF ylSe >* wy% THEN ylS< *= wyX-1 
GOSUB makearea 

' Punti superiori posteriori: 
x * xho : y = yho : z = zho 
GOSUB .transform 
GOSUB makearea 
' Punti superiori anteriori: 
x = xvo : y = yvo : z = zvo 
GOSUB transform 
GOSUB makearea 

AREAFILL 0 ' riempimento 

x * rette5 
z = rette 
skip: 

NEXT seite% 
z c rette 
END IF 

NEXT z 


' Tracciato parete anteriore: 

IF urnrahm* = "s" THEN 

zwis^ = r.aktX ' Scambio numeri matrici righe 

r.aktX c r. lastra 
r.lastX * zwisX 

n.zaehl V. = -1 ' Contatore per reticolo 

r.zaehlX = 0 ' Contatore per matrici righe 

COLOR 5 

FOR x e xa TO xb STEP ste.x 
y = boden 

GOSUB transform 'Trasformazione coordinate 

IF x + ste.x > e xb THEN xl& B hold. x& : yl8«=hold. yt* 

IF yl& >= wy!< THEN yl& = wyX-1 

GOSUB zeichne ' tracciato campo / annotazione coord. 
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NEXT x 
END IF 


Stp: 

WHILE (INKEY*=""> • Attesa tasto 

WEND 


WINDOW CLOSE 4 
SCREEN CLOSE 2 

END 


Annotazione delle coordinate nella matrice ed 
eventualmente tracciato superficie 
zeichne: 

Memorizzazione nella matrice: 

merk.x&lr.zaehlX, r.aktX) = >cl& 
merk. ySt <r. zaehlJC, r.aktX) = ylS< 

n.zaehlX = n.zaehlX t 1 

'Tracciato di un riquadro della rete: 

IF n.zaehl5£=anz.netz3i AND zOzb AND y> = ya AND y<=yb THEN 
n.zaehlX = 0 1 Reset del contatore 

'Iniziaiizzazione del polinomio di Area: 

FOR ind = r.zaehlX-anz.netzX TO r.zaehlX 
xlS< = merk. x& ( ind, r. aktX) 
yl& = merk. yS< ( ind, r.aktX) 

GGSUB makearea 
NEXT ind 

FOR ind = r.zaehlX TO r.zaehlZ-anz.netzX STEP -1 
xlt< » merk.xfc < ind, r. lastJC) 
yl& = merk. y!< (ind, r. 1 astio 
GOSUB makearea 
NEXT ind 

AREAFILL 0 'Riempimento del polinomio 

END IF 

r.zaeh1X = r.zaehlX + 1 ' punto successivo 

RETURN . 


' Routine di trasformazione: 

che trasforma le coord. tridim. espresse in x, y, z 
in coord. bidjrn. espresse in xlS«, yl& 


transform: 

'Esecuzione delle Trasformazioni: 

' Messa in scali 


Xt 1 

= sx*x 

■f 

tx 

ytl 

= sy*y 

•f 

ty 

ztl 

- sz'z 

♦ 

tz 


traslazione 




xt2 = xtl*A + ytl*B ♦ ztl*C * Rotazioni 

yt2 = xtl*D + ytì*E ♦ ztl*F 

zt2 = xtl*i5i + ytl*H ♦ ztl*I 

'Proiezione centrale: 
zwis = zt2 - beo.z 

x 1 = beo.x - beo.z * (xt2-beo.x)/zwis 

yl& = beo.y - beo.z * (yt2-beo.y)/zwis 

'Traslazione del piano: 
x 1 & = tex& ♦ xl&/sexSc 
ylS< = teyS< - ylSc/seyS< 

RETURN 


'Mini-CI ipping e chiamata dell' Area con xl$t, yl8<: 
rnakearea: 

' Mini-CIipping: 

IF x 1 St> = 0 AND xl5<<wx:< AND yl&> = 0 AND ylSc<w yX THEN 
AREA (xlSc, y 1&) 

END IF 
RETURN 


Incredibile! Questo programma disegna, nel modo che stiamo vedendo, una funzio¬ 
ne ben determinata in una maniera ben determinata. Tutto ciò, ed altro, viene indicato 
nella variabile flag %. In questo caso essa è stata impostata a 1. Questo flag indica 
chiaramente se vogliamo inserire i diversi parametri modificabili nel programma per 
mezzo di INPUT dopo ogni inizio di programma (flag% = 0), oppure se devono venire 
utilizzati direttamente i parametri che si trovano nel programma (flag°/o = 1). Il flag è 
stato introdotto al fine di risparmiare il controllo delle funzioni con i parametri. Sarebbe 
particolarmente complicato dovere inserire di nuovo tutti i parametri ad ogni svolgimento 
dei test, quando si desidera cambiarne uno solo. 
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Fig. 5.5 Plotter dì funzioni tridimensionali 2 


Il comando DEF serve per la definizione della funzione tridimensionale che si desi¬ 
dera tracciare. Fate attenzione al fatto che non tutte le funzioni sono adatte a venire 
rappresentate sullo schermo. A causa di funzioni con numerose lacune di definizione 
possono emergere innumerevoli problemi. Per es., se durante il calcolo il nominatore 
diventa uguale a zero, emerge naturalmente il messaggio di errore DIVISION BY ZE¬ 
RO. Radici negative o valori troppo grandi, portano all'arresto del programma Biso¬ 
gnerà quindi scegliere con criterio gli intervalli dei valori! 

Se si desidera rappresentare tali funzioni in posizioni indefinite, ecco un trucco in¬ 
stallare una routine ÓN ERROR (Attenzione! La funzione verrà calcolata in nume'os 
punti del programma), o utilizzare le seguenti caratteristiche dal Basic dell'Arr.ga ri¬ 
mettere in modo diretto: 

PRINT 4=4;”/";4=2 

Risultato: -1 / 0 

Con ciò abbiamo appena ottenuto il risultato di un confronto logico Ad ogni opera¬ 
zione logica l'AmigaBasic attribuisce un valore, con il quale è possale anche calcola¬ 
re. Se l’espressione logica è vera, si ottiene il valore -1, se questa è falsa, il risultato 
è 0. Tale confronto (anche con " > ”, “ < ", " < > ”, ecc.) potrà venire inserito natural¬ 
mente nelle nostre funzioni. 

La funzione f(x) = sin(x)/x per es. non viene definita nella posizione x = 0. Affinché pe¬ 
rò il programma possa calcolare anche questa posizione, scriviamo: 

f(x) = sin(x)/(x-(x = 0)) 
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Non appena x diventa uguale a zero, l’espressione (x = 0) ottiene il valore -1, il quale 
deve venire sotratto da x (quindi da 0). Il risultato per x = 0 è: f(0) = sin(0)/(0-(-1 )). Il no¬ 
minatore diventa uguale a 1. Il punto che ne risulta non rappresenta certamente nes¬ 
sun punto valido della curva, ma ciò non si nota particolarmente nelle applicazioni 
pratiche. 

Con le radici, si dovrà lavorare invece con la funzione ABS( ): f(x) = SQR(ABS(x)) non 
fornisce mai valori non validi. 


Arriviamo ora ai diversi parametri che si dovranno modificare: 


xa 

xb 

ya 

yb 

za 

zb 

sx 

sy 

sz 

tx 

ty 

tz 

rx 

ry 

rz 

beo.x 

beo.y 

beo.z 

rech.gen 

netz.x 

netz.z 

umrahmS 

kreuz$ 

tex& 

tey& 

sex& 

sey& 


Coordinata spaziale x dell'inizio dell’intervallo x 
Coordinata spaziale x della fine dell'Intervallo x 
Coordinata spaziale y dell’inizio dell'Intervallo y 
Coordinata spaziale y della fine dell'Intervallo y 
Coordinata spaziale z dell'inizio dell’intervallo z 
Coordinata spaziale z della fine dell'Intervallo z 
Scala dello spazio della funzione in direzione x 
Scala dello spazio della funzione in direzione y 
Scala dello spazio della funzione in direzione z 
Traslazione dello spazio in direzione x 
Traslazione dello spazio in direzione y 
Traslazione dello spazio in direzione z 
Rotazione dello spazio attorno all’asse x 
Rotazione dello spazio attorno all’asse y 
Rotazione dello spazio attorno all’asse z 
Coordinata x dell'osservatore 
Coordinata y dell'osservatore 
Coordinata z dell’osservatore 
Numero dei punti da calcolare per intervallo x (righe) 

Densità della rete x (numero delle linee di rete per intervallo x; rech.gen 
deve essere un multiplo intero di netz.x!) 

Densità della rete z (numero delle linee di rete per intervallo z; contempora¬ 
neamente numero dei punti da calcolare per intervallo z) 

Flag per incorniciatura inserita/disinserita 

Flag per sistema di coordinate inserito/disinserito 

Traslazione dei piani in direzione x (posizione x del grafico nella finestra) 

Traslazione dei piani in direzione y (posizione y del grafico nella finestra) 

Scala dei piani in direzione x (coordinata x per 1/sex&) 

Scala dei piani in direzione y (coordinata y per 1/sey&) 


Per motivi di spazio non è possibile inserirli tutti tramite INPUT. La cosa migliore è 
di provare un po'. In questa maniera potremo verificare le conseguenze di ogni singo¬ 
lo parametro. D'altra parte incontreremo cose che abbiamo già imparato (per es. i pa¬ 
rametri di trasformazione). L'importante è introdurre i parametri di intervallo in modo 
che valga: ya<yb,xa<xb e za<zb. yb lo dovremo scegliere il più grande possibile. 
Eviteremo angoli maggiori di 45 gradi o minori di -45 gradi (meglio scegliere valori vici¬ 
ni a zero). - 
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La routine apre, all'inizio del programma, un nuovo schermo completo con una fine¬ 
stra interna. Lo schermo è dotato di tre bit-piane. Sono disponibili anche otto colori 
diversi. Nel nostro programma ne utilizzeremo solo sette, che verranno definiti tramite 
PALETTE. Poi, vediamo cosa succede con l'inserimento dei parametri. 

Infatti, il vero programma inizia dopo l'etichetta di salto “avanti:". Qui vengono ini- 
zializzate alcune cose molto importanti. Per es., due matrici (merk.x&(,) e merk.y&(,)) 
che ci accompagnano lungo l'intero programma. Esse contengono le coordinate inte¬ 
re di due serie z della funzione da calcolare (ved. sotto). Inoltre, il programma calcola 
i valori di STEP per i loop FOR...NEXT ulteriori (ste.x e ste.z) che derivano dagli inter¬ 
valli x e z e dalla precisione matematica indicata. La precisione matematica indica quanti 
punti singoli devono venire calcolati in ogni piano y-z, i quali in seguito verranno colle¬ 
gati con linee per produrre una sequenza di curve in rapporto l’una con l'altra. La va¬ 
riabile netz.z contiene la stessa informazione per i piani x e y. Invece netz.x indica quante 
linee di rete devono incrociare le linee orizzontali di rete per ogni intervallo x. anz.netz% 
determina, di conseguenza, il numero dei punti da calcolare tra le due linee di rete 

Segue poi il sistema di coordinate: sei punti vengono calcolati, trasformati e proiettat 
(tramite il sottoprogramma “transform") e vengono tracciate tre linee. 

Conosciamo già entrambi i loop FOR...NEXT nidificati l’uno nell’altro, che si trovava¬ 
no nei programmi descritti nei Capitoli precedenti. Qui essi sono naturalmente più estesi 
ma il principio è sempre lo stesso. 

Ora dovremo prendere in considerazione come risolvere il problema delle linee na¬ 
scoste in questo programma, cioè in modo diverso da quello che abbiamo fin qu im¬ 
parato. 

Il programma non traccia immediatamente sullo schermo tutti i punti calcolai oe 2 
funzione. I valori x e y di ogni punto di una sequenza x vengono messi nelle marna 
sopra menzionate merk.x&(n,r) e merk.y&(n,r). n indica la posizione del punto al eter¬ 
no di una sequenza, r rappresenta 0 0 1. Due sequenze x impostate Cuna dopo a :'2 
vengono sempre memorizzate nelle matrici. Questa operazione ha un obiettivo be~ cre- 
ciso. Da ogni punto non vengono tracciate linee semplici, ma i punti in direzo^e x e 
anche in direzione z vengono collegati l'uno con l’altro-tramite linee (quac r e“ 2:^'2 
La superficie, delimitata da queste linee (sup. a rete) riempie il programma cor jn co¬ 
lore. In conseguenza essa ridipinge tutto ciò che era stato tracciato d;e:rc - -"magine 
risulterà quindi composta quasi come un mosaico. Potrebbero eme r gere profrem.. ma 
solo in caso di grandi rotazioni rx, ry ed rz in alcune funzioni. 

Dopo che è stato calcolato nel loop x anche un valore di funzione, tale punto viene 
trasformato e proiettato nel sottoprogramma “transform" alla vecchia maniera. Le coor¬ 
dinate dei piani già approntate si trovano in x1& e y1& e vengono trasmesse al sottopro¬ 
gramma “zeichne", che si trova in entrambe le matrici sopracitate. E' qui che viene deciso 
se tracciare veramente: al primo passaggio dei loop z (z = zb) non è ancora piena nes¬ 
suna matrice. Generalmente, è possibile tracciare solo dopo il secondo passaggio del 
loop z. Nel caso in cui debbano venire calcolati ulteriori punti per ogni linea di rete verti¬ 
cale, il disegno dovrà restare sospeso finché non si sarà ottenuta una linea di rete. 
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Tracceremo una superficie. A tale scopo utilizzeremo il comando AREA oppure 
AREAFILL, che riempirà un poligono a piacere. Il programma trasmetterà ogni punto 
angolare della superficie, ottenuto dalla matrice merk.x&(,) e merk.y(,), al comando 
AREA. Questi punti sono perlomeno quattro, ma potranno essere anche sei, otto, dieci 
ecc. a seconda dell'esattezza di calcolo e del numero delle linee di rete. 

Quando una linea è stata elaborata, a seconda del Flag umrahmSe della prospetti¬ 
va, potrà venire tracciata una ulteriore fiancata laterale destra o sinistra (con AREAFILL). 
Di conseguenza, i punti della penultima sequenza non saranno più necessari. Si do¬ 
vranno perciò utilizzare i punti delle sequenze successive fino alla fine del loop z. 

Se si è selezionato umrahmS = "j", una parete anteriore apparterrà alle fiancate late¬ 
rali. Il programma la traccia nello stesso modo come descritto. L’immagine è pronta, 
il programma attenderà la pressione del tasto, chiuderà lo schermo e la finestra e ritor¬ 
nerà al Workbench. 

Proviamo ancora una volta altre funzioni con altri parametri. Un esempio: ottenere 
una panoramica della funzione tramite inserimenti di intervalli molto grandi e limitare 
in seguito i campi interessanti. Selezionare poi piccoli angoli di rotazione, piccole scale 
ed un osservatore molto distante (beo.z = -4000). Disinserire l'incorniciatura. Se abbia¬ 
mo trovato le parti interessanti, proseguiremo per un raffinamento ulteriore (per motivi 
di velocità) impostando la precisione matematica a valori bassi. 


5.3 Linee e superfici nascoste in spazi organizzati 


Ciò che si nasconde dietro questo titolo non è così complicato come sembra. Negli 
ultimi Capitoli sono state mostrate le possibilità e le tecniche con le quali realizzare li¬ 
nee e superfici nascoste in maniera semplicissima e senza calcoli complicati in grafici 
di funzione tridimensionali. 

Ora il problema riguarda le cosiddette: "Hidden Lines and Surfaces”, generalmente 
uno degli aspetti più difficili nella grafica per computer. Esiste a questo scopo una se¬ 
rie molto ampia dei più diversi algoritmi che sono veloci o prendono in considerazione 
casi diversi di accostamento di oggetti e di superfici. E’ molto difficile realizzarli entram¬ 
bi contemporaneamente. Maggiore è il numero dei casi da prendere in considerazio¬ 
ne, tanto più difficili e complicate saranno le routine per la soppressione delle superfici. 

Poiché più avanti verremo a conoscenza di un procedimento che affronta tutte le 
eventualità al cento percento (il Ray-Tracing), ma è anche relativamente lento, cerchiamo 
di avere qui maggiore velocità. Ci confronteremo nella scelta di oggetti e superfici e 
otterremo una tecnica che raggiunge risultati utilizzabili in Real-Time (tempo reale). 

Il nostro procedimento si divide in due passaggi: 

— Soppressione del retro della superficie 

— Selezione della profondità 
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Il primo passaggio si riferisce alle superfici all’interno di un oggetto. Il secondo si 
riferisce alle superfici, che possono trovarsi anch’esse dentro un oggetto e che inoltre 
possono esistere in oggetti diversi fra loro. Con ciò cercheremo di coprire il maggior 
numero di superfici possibili all’interno di ogni oggetto. Nel secondo passaggio si pren¬ 
deranno in considerazione le superfici coperte all’interno di un oggetto non ancora esa¬ 
minate e si determinerà la copertura di oggetti diversi l’uno sotto l'altro. 


Tuttavia in ogni caso, dovremo estendere il nostro modello di oggetti, linee e punti 
bi dovrà rilevare ogni singola superficie di un oggetto. Una superficie viene definita 
attraverso le linee che la delimitano, che vengono determinate con i punti di inizio e 
di fine. Inoltre, un oggetto può venire determinato da diverse superfici. 


a) Soppressione del retro di una superficie 

Prendiamo in considerazione l’esempio molto semplice di un corpo, un parallele¬ 
pipedo (ved. Fig. 5.6). Tale parallelepipedo è composto da sei facce, delle quali so¬ 
lo tre sono effettivamente visibili. La cosa importante da ricordare è che una faccia 
in questo caso è completamente visibile o non lo è per niente, poiché sono solo tali 
facce che vengono individuate dall'algoritmo. La visibilità di tali tre facce dipende 
dalla relativa prospettiva. Come sarà, perciò, possibile scoprire quali facce sono vi¬ 
sibili e quali invece no? 



A dir la verità tutto ciò non è poi così difficile. Abbiamo bisogno di ragionare sul 
concetto che i punti angolari (o gli spigoli) di una faccia sono numerati in senso ora¬ 
rio. Osserviamo ogni singola faccia anteriormente e numeriamo i lati di conseguen¬ 
za (ved. figura). Nel caso in cui un lato venisse ruotato rispetto all’osservatore, 
apparirebbe sullo schermo la faccia nella numerazione opposta. Proprio questo è 
il criterio secondo il quale una faccia è invisibile. 


Ogni faccia possiede un lato visibile ed uno invisibile (quasi come uno specchio 
semiriflettente). Determineremo quale di questi due lati sarà rivolto verso di noi e 
quale no. 
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Ripercorriamo la via della matematica per cercare anche la direzione nella quale 
si mostrerà il lato visibile di una faccia. Mostriamo un vettore perpendicolare alla fac¬ 
cia. Punterà logicamente in tale direzione, (ved. Fig. 5 . 7 ). 





Fig. 5.7 Prodotto vettoriale di una superficie 


E’ semplice, matematicamente parlando, calcolare tale vettore, formando il pro¬ 
dotto vettoriale di due vettori linearmente indipendenti (per l’indipendenza lineare 
e il prodotto vettoriale, già descritti, ved. anche Appendice). Così abbiamo trovato 
anche i vettori linearmente indipendenti delle facce. Scegliamo un vertice 
Pi(Pix.Piy.Piz) della faccia e costruiamo il vettore dal vertice successivo 
p 2(P2x'P2yP2z) ' vettore numero 1 . Otterremo invece il vettore numero 2 tracciando 
al vertice successivo P 3 (p3 X ,P3y,P32) un secondo vettore dallo stesso punto di origi¬ 
ne P,. Ciò funziona sempre nel caso in cui i tre vertici non si trovino su una linea 
(in tal caso entrambi i vettori non sono più indipendenti linearmente). 



Fig. 5.8 Determinazione di vettori linearmente indipendenti di una superficie 
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Chiamiamo entrambi i vettori con v e w: 



Ora, per calcolare il vettore verticale p, si dovrà determinare il prodotto vettoriale 
"v per w” (da non confondere con il prodotto scalare): 



Nel caso in cui tale vettore p di direzione (come osservatore) punti lontano, la fac¬ 
cia sarà visibile, mentre se punta verso di noi, stiamo gurdando la parte invisibi e 
Per determinare matematicamente in quale direzione punta il vettore, è necessario 
un vettore ulteriore e il cosiddetto prodotto scalare di entrambi i vettori. 


Per quanto riguarda il secondo vettore, al quale vogliamo dare il nome di s s 
tratta del vettore dello sguardo, che dovrà puntare dall'osservatore al punto corr- 
spondente da proiettare (ved. Fig. 5.9). 


Superficie visibile 


Superficie invisibile 



Fig. 5.9 Analisi della visibilità tramite vettore dello sguardo e vettore della direzione della superficie 

















Per s vale: 



con: 

oss x ,oss y ,oss z : Coordinate dell’osservatore 

Pix.Pi y ,Piz : Coordinate del punto di piede Pi di v e w 


Se anche il vettore dello sguardo s e il vettore di direzione delle facce p puntano 
in direzioni uguali, la faccia sarà visibile, altrimenti no. Per ottenere un criterio mate¬ 
matico per la visibilità, l’algoritmo esamina l’angolo a tra i due vettori. Se per a vale. 
-90<a<90 entrambi i vettori puntano quasi nella stessa direzione e la faccia è visi¬ 
bile. Invece, se per a vale: a> = 90 oppure a < = -90, entra in gioco l’altro caso. 
Tramite il prodotto scalare q è possibile calcolare l'angolo tra i due vettori, che, co¬ 
me tutti sanno, fornisce un numero normale (e non un vettore come fa il prodotto 
vettoriale): 


q = s*p = |s|*|p|*cos(a) 

= s x *p x + Sy*p y + s z *p z 


Se a è nel campo da -90 gradi a +90 gradi, in questo caso il coseno cos(a) è 
positivo, altrimenti esso diventa uguale a zero (a = 90 oppure a = -90) oppure ne¬ 
gativo (ved. Fig. 5.10). 



Poiché entrambi i fattori |s| e |p| (assoluti) sono sempre positivi, ci interessa soprat¬ 
tutto il segno del prodotto totale scalare q. Non è particolarmente necessario fare 
i calcoli con gli angoli e le funzioni degli angoli, in quanto utilizzeremo l'uguaglianza 
dei parametri del prodotto scalare q = s x *p x + s y *p y + s z *p z , che sarà natural¬ 
mente molto più semplice da calcolare. Distinguiamo, inoltre, altri due casi: 

Caso nr. 1: q>0 = > La superficie è visibile 

Caso nr. 2: qsO = > La superficie è invisibile 
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L’algoritmo viene riassunto come segue: 

1. Ogni oggetto ha una serie di superfici con lati numerati in senso orario 

2. Ogni faccia viene sottoposta al controllo di visibilità 

3. Determinazione di due vettori v e w linearmente indipendenti della superficie da 
esaminare tramite la scelta di tre punti P-,, P 2 , P 3 che si susseguono l’uno dopo 
l'altro 

4. Calcolo del vettore verticale p tramite il prodotto vettoriale p = vxw 

5. Calcolo del vettore dello sguardo s risultante dall’osservatore -> P, 

6. Determinazione della direzione dei vettori s e p l’uno verso l'altro tramite determi¬ 
nazione del segno del prodotto scalare q di entrambi i vettori 

7. Caso in cui q > 0: Superficie considerabile come visibile 

Caso in cui qsO: Superficie considerabile come invisibile 


Ouesto algoritmo non funziona nel caso di superfici rivolte verso l’osservatore ma 
coperte da altre superfici dello stesso oggetto o da altri oggetti. Per impiegare da 
solo tale algoritmo, dovremo limitarci ad un oggetto (oppure disporre gli oggetti in 



Fig. 5.11 Poligoni convessi e concavi 


modo che non si intersechino in nessun caso). Inoltre, l'oggetto dovrà essere con¬ 
vesso (tutti gli angoli interni sono minori di 180 gradi). Un oggetto concavo a. rebbe 
delle insenature che potrebbero venire ricoperte da altre superne 

b) Selezione della profondità 

Per ovviare a questo inconveniente, ci serve una tecnica che è conosciuta anche 
sotto il nome di Painters Algorithm (Algoritmo del pittore). Nella pittura tale tecnica 
viene spesso utilizzata per ovviare al problema delle superfici coperte, che esiste 
anche lì. Perciò, il pittore inizia con lo sfondo lontano, quindi dipinge un oggetto più 
vicino. In ciò le parti necessarie che facevano parte dello sfondo venivano ridipinte 
finché, finalmente, non si giungeva alle figure vicine, che ricoprivano nuovamente 
ciò che stava dietro. 
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Nella tecnica di computer le cose sono molto simili: prima si disegnano gli oggetti 
e le superfici posteriori, poi quelle anteriori che le potranno ricoprire completamente 
o quasi. La tecnica si adatta naturalmente solo al video, come possiede il nostro 
Amiga e la maggior parte dei computer. Per il plotter, per es., con il quale certamen¬ 
te non si può ridipingere una cosa sull'altra, vengono utilizzati gli algoritmi di Hidden- 
Line sopracitati, che dapprima eliminano le linee e le parti di linee coperte e quindi 
disegnano. 

A dir la verità, tutto ciò non è una novità, poiché l'abbiamo già appreso con le 
funzioni tridimensionali. In quel caso era però molto più semplice trovare quale su¬ 
perficie stava dietro e quale stava davanti. Iniziavamo semplicemente a disegnare 
dalle coordinate z più elevate. 

Con superfici normali nel modello dell'oggetto, invece, dovremo prima di tutto de¬ 
terminare quali superfici o parti di superficie sono davanti ad altre superfici. Potrà 
addirittura accadere che una parte di una superficie si trovi davanti e una parte die¬ 
tro ad un'altra superficie, oppure che si intersechino due superfici (ved. Fig. 5.12). 



Fig, 5.12 Sovrapposizione ciclica, intersezione e sovrapposizione reciproca di due poligoni 


Un algoritmo di selezione della profondità potrà essere complicato a piacere, a 
seconda dei casi che deve prendere in considerazione. Esso dovrà eventualmente 
suddividere le singole superfici per considerare chiaramente le priorità, ecc. 

In questa tecnica si utilizzano solo quelle superfici che l’algoritmo sopra descritto 
ha lasciato come superfici visibili, in quanto quelle superfici determinate come invisi¬ 
bili sono invisibili in ogni caso. Con ciò diminuisce considerevolmente il numero del¬ 
le superfici da elaborare (spesso di circa la metà). 

Con l’algoritmo di selezione della profondità viene controllato se una o più super¬ 
fici si sovrappongono. Il programmatore, perciò, cercherà di ottenere prima di tutto 
l’esclusione di più superfici possibili al fine di mettere in pratica metodi complicati 
per il minor numero di superfici possibile. 
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In generale si cerca di produrre una lista di priorità di suoerfici, che indicherà in 
quale sequenza esse dovranno venire tracciate. In questo caso esiste una tecnica 
chiara che effettua i seguenti passaggi. Il presupposto è che l’osservatore osservi 
lungo l'asse z. In caso diverso, questo scopo dovrà venire raggiunto tramite trasla¬ 
zioni e rotazioni corrispondenti (in maniera simile alla rotazione attorno ad un asse 
spaziale a piacere): 

1. Di tutte le superfici verrà determinato il vertice dotato della coordinata maggiore 
Zmax (il più lontana possibile) e quello che possiede la coordinata minore z~- (la 
più prossima all’osservatore). 

2. Tutte le superfici verranno preselezionate secondo z^ decrescente. Nella pri¬ 
ma posizione ci sarà la superficie con lo z^ più alto. Le chiameremo F,. F 2 ,. F n 

3. Ora, la prima superficie F, dovrà venire confrontata con le altre superfici F, (cioè: 
da F 2 a F^: 

a) Nel caso in cui il punto più prossimo di F, (F 1zmin ) venga a trovarsi più lonta¬ 
no del punto più lontano possibile della seconda superficie F 2 (F 2zmax ). cioè 

^Izmin = f"22max 

nessuna parte di F, potrà ricoprire una parte di F 2 o un'altra superficie F, della 
lista. F, potrà quindi rimanere nella prima posizione della lista. 

b) Se invece vale: 

^Izmin ^ ^2zmax 

sarà possibile che Fi ricopra non solo F 2 , ma anche tutte le altre superici F. 
Per scoprire ciò, verrà effettuata una serie di test. Si inizierà naturalmente cc~ 
i test più semplici e più veloci. Si dovrà testare F-, con ogni altra superficie F 

— Ricerca degli angoli retti compresi tra due superfici F, e F,: si proiettano e 
due superfici normalmente sul piano, quindi si potrà trovare uno deg an¬ 
goli retti compreso per ogni superficie, nel quale si determineranno 'a: 
mente le coordinate x e y minori e maggiori del vertice (ved. Fig 5 13) Se 
gli angoli retti compresi di due superfici non si sovrappongono. anc~e e 
superfici non potranno essere sovrapposte. Quindi, continuiamo con e 
perfici successive nella lista. Se si sovrappongono, poi passiamo a D r cst 
mo test: 



Fig. 5.13 Rettangolo contenente un poligono 

















— Tutti i vertici della superficie F-, giacciono dietro ai piani tesi dalla seconda su¬ 
perficie Fj? Utilizziamo di nuovo il vettore p perpendicolare già calcolato nel¬ 
l'algoritmo sopracitato sul piano corrispondente F r Tale vettore punta, nel 
caso di tutte le superfici rimanenti, nella stessa direzione del vettore dell’osser¬ 
vatore (ved. sopra). Quindi punta lontano (ved. Fig. 5.14). Un vettore da un 
vertice a piacere della superficie F, al vertice da esaminare di F, (chiamiamo¬ 
lo f) punterà quindi nella stessa direzione di p, qualora il vertice di F, si trovi 
dietro la superficie F,. Se si trova davanti, esso punterà nella direzione oppo¬ 
sta. Se f è invece perpendicolare a p, il vertice di F, si troverà sul piano (non 
necessariamente sulla superficie!), che viene teso da F r 

Determineremo il riferimento della direzione nella stessa maniera come per 
il test delle superfici con il prodotto scalare T* p, del quale ci interessa solo il 
segno. 



Tutti i vertici di F, vengono testati in questa maniera. Se si trovano tutti dietro 
la superficie F; in questione, si potrà continuare con la prossima superficie 
Fi + i- 


In caso contrario, verrà effettuato il seguente test: 

— In linea di principio si tratta dello stesso test come il precedente. Infatti, verrà 
testato solo se tutti i vertici della superficie F, si trovano davanti al piano teso 
da F,. 


In tal caso, F 1 potrà rimanere nella prima posizione della tabella e verrà con¬ 
trollata la superficie successiva F j+1 . 

— L'ultimo test, che può essere molto dispendioso, vuole sapere se F, si trova 
sovrapposto da una superficie Fj. In tal caso si dovrà calcolare il punto d’in¬ 
tersezione ecc. 




Come abbiamo già detto, ogni superficie F, viene sottoposta a questi test con riferi¬ 
mento a F,. Se F-i ha superato tutti i controlli, rimarrà nella prima posizione della 
lista (oppure verrà tracciata direttamente). La posizione di F, verrà quindi assunta 
in seguito dalla superficie F 2 successiva, ecc. 

Se F, non supera un singolo test, esso verrà scambiato con quella superficie con 
la quale il test non ha funzionato. Con queste nuove superfici superiori verrà ripetuta 
l’intera procedura dall’inizio. 


Contemporaneamente vengono memorizzate le vecchie posizioni di tale superfi¬ 
cie. Infatti se si giungesse di nuovo allo scambio, ci troveremo in presenza di una 
sovrapposizione ciclica, che potrebbe venire risolta solo tramite suddivisione delle 
superfici. 


Ancora più complicato, direte voi. Ma non scoraggiamoci, in quanto si tratta sempre 
di un algoritmo relativamente facile. 


Se volessimo programmare tutti i passaggi di tale tecnica, dovremmo lasciar perde¬ 
re la nostra intenzione di effettuare i movimenti in Real-Time (tempo reale). Lasciamo 
da parte per una volta la perfezione completa e accontentiamoci di un criterio di sele¬ 
zione della profondità semplice ed allettante che tuttavia prenda in considerazione una 
serie molto ampia di casi: 


Determineremo facilmente un valore z intermedio di ogni superficie. Quindi, aggiun¬ 
geremo il valore z a tutti i vertici delle superfici e divideremo il risultato per il numero 
dei vertici (un semplice calcolo di valore intermedio!). Questo risultato è naturalmente 
esatto solo per superfici che corrono parallele ai piani x-y. Tanto più una superficie pe¬ 
netra nello spazio, tanto maggiore sarà il pericolo che emergano degli errori, come 
vedremo in seguito: accoppiata con la ricerca per la visibilità, questa tecnica porta gè 
a risultati sorprendenti (particolarmente in riferimento ai cosiddetti solidi di rotazione 
che vedremo in seguito). 


Se abbiamo selezionato le superfici secondo il criterio delle coordinate z nte r mec'e 
ci sarà più facile tracciare le superfici una dopo l’altra sullo schermo. Le superfo trac¬ 
ciate in seguito copriranno eventualmente quelle precedenti. Il programma n Basic 
che segue chiarirà il concetto di questa tecnica: 
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. t ♦ ************************ *•***♦*♦♦** 
' * * * * 

*** Linee e superfici nascoste ** 

' * * ** 

' * * * * * * * * * * * ********************** * * * 


PI = 3.141593 


'Apertura nuovo schermo con finestra: 

anz. farbenX *» 16 

SCREEN 2,640,200,4,2 

wx>: = 631 

wyX =186 • 

WINDOW 2,"Linee e superfici nascoste".(0,0)-(wxX,wyX),4+8,2 


blauf = 0 
gruenf » 0 
rotf = 1 
b1auadd = . 
gruenadd = 
rotadd = 0 


'Fattore blu 
'Fattore verde 
'Fattore rosso 
'Aggiunta di blu 
1 'Aggiunta di verde 
'Aggiunta di rosso 


'Assegnazione colori: 

FOR i=2 T0 anz.farbenX-1 

farbe = INT<i*100/15 ♦ .51/100 
rot = farbe*rotf♦rotadd 
gruen = farbe*gruenf♦gruenadd 
blau = farbe*blauf+blauadd 
IF rot>1 THEN rot = l 
IF gruen>l THEN gruen=l 
IF blau>l THEN blau=l 


PALETTE i,rot,gruen,blau 
NEXT i 


PALETTE 0,0,0,0 'Sfondo nero 

PALETTE 1,1,.8,.13 'Colore cornice 


' Parametri di trasformazione di Start 
' Scala: 

'sx = 2 
sy « 2 
sz = 2 

* Traslazione 
tx = 5 
ty = 5 
tz = 5 

' Rotazione 
rx = -20 
ry = 20 
rz = 0 
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1 Osservatore 
bx = 0 
by = 0 
bz = 150 


1 Fonte di luce 
lq.x& = -900 
lq.yà = 1000 
lq.z!< = -500 

Intensità' luminosa/di superficie 
1i.int = .7 
fi.int = 1 
hin.int = .3 

' Traslazione piano 
tex = 300 
tey * 90 

' Scala piano 
se>c = 2 
sey = 1 

Trasformazione in RAD dell'angolo di rotazione 
rx = rx*PI/180 
ry ® ry♦PI/180 
rz = rz*PI/18Q 


'Valore incremento rotazione (Gradi): 
d i g = 1*0 


di = PI * dig/180 'Trasformazione in RAD 

'Incremento osservatore: 
bine * 20 

POKE WINDOW (8) ♦ 27, 1 'Colore del 1 ' Area-Out 1 ine-Peri 

flags = WINDOW(8)+32 

POKEW flags,PEEKW(flags) OR 8 'Impostaz. del1'Area-Out1ine-Flag 


'Lettura dati oggetto 
'definizione seguenti 
•xrX <>, yrX ( ) , zrXO 
' xe(),ye(),ze() 

' fld%(, ) 

' flz:<(, ) 

'anzeckdX(> 

'anzeckzX() 

'sort. fX () 

'mit.z() 

’farben() 


nelle matrici e 
matrici : 

coordinate del punto nello spazio 
Coordinate trasformate 
Definizioni della superficie 
Superficie da tracciare 
N.ro angoli di ogni superf. definita 
Numero angoli di ogni superficie 
da tracciare 

Indici selezionati delle superf. 

Valori z medi di matrice delle superf. 
Intensità' colore di tutte le superf. 
da tracciare 
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'Loop principale: 
* ♦ <; * * * * ****** * 


f 1 ag*<=0 

WHILE f lagJÉOl 


t ransf or rn 
verdecke 

projektion 


'Trasformare tutti i punti 
'Filtrare le superf. coperte 
'(e determinarne i colori) 
'Proiettare tutti i punti 


CLS 


*Canee11 azione finestra 


PATTERN &HFFFF 'Motivo di righe = a zig rag 


' D i segno oggeto: 

FOR i=0 TO ènfzX-1 

f 1 aech. nrX = sor t • f X < i ) 

FOR k = 0 Tp anzeckz% ( f 1 aech. nrX) -1 
punkt.nr% = f \zX (flaech.nrX,k) 
xX * tex ♦ sex*xe (punkt.nrJC) 
y3C * tey - sey*ye (punkt. nrX) 

IF x%<0 THEN x5C = 0 

IF x5C>»wx* THEN x* = wx)>l 

IF yX<0 THEN yX * 0 

IF yJi>»wyJi THEN y!< = wyJi-1 


'Tutte le super fici 
'nr. superf. da tracciare 
'Tutti ì punti angol. superf. 
'numero punto 
'Coordinate del punto 


AREA (xX,yX) 


NEXT k 


COLOR INT(farte(flaech. nrX )* 14 )*2 'Impostai, valore colore 
AREAFILL 0 'disegno superficie 

NEXT i 


rnausX = 0 : flag% = 0 
WHILE mausXOl AND flag!< = 0 

SLEEP 'Attesa evento 


'Assunzione delle coordinate del Mouse come 
'nuove coordinate di punto zero 
maustt*MOUSE(0) 

IF mausX=l THEN 
tex = MOUSE<3) 
tey = MOUSE(4) 

END IF 


eh'/. = ASC (INKEY$*CHR$ (0 ) ) 


IF ch>: = 31 THEN 
ry=ry-*di 
flagra = -1 


'Cursore 
'Aumento 
'Flag per 


a sinistra *> 
angolo rotazione 
nuovo disegno 


END IF 

IF chZ x 30 THEN 'Cursore a destra => 


asse y 
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ry=ry-di 
f 1 a g# = -1 
END IF 

IF ch#=28 THEN 
rx=rx+di 
f 1 ag# = -1 


'diminuzione angolo rotazione asse y 
'Flag per nuovo disegno 

'Cursore in alto => 

'Aumento angolo rotazione asse x 
'Flag per nuovo disegno 


END IF 

IF eh#=29 THEN 'Cursore in basso = > 

rX=rx-di 'diminuzione angolo rotazione asse x 

flag# = -1 'Flag per nuovo disegno 

END IF 

IF eh#*127 THEN 'Del => Delimitazioni superfici si/no 
POKEW f1ags,PEEKW(fiags) XOR 8 
flag’# = -1 


END IF 

IF eh#=43 THEN 

SX = SX+1 

sy = sy ♦1 
sz sz+1 
flag# = -1 
END IF 

IF eh#=45 THEN 
sx = sx-1 


*> Scala verso l'alto 


*> scala verso il basso 


sy = sy-1 
sz = sz-1 
f1ag# = -1 
END IF 

IF ch#=56 THEN 'S => Allontanamento osservatore 
bz = bz-binc 
flag# = -1 


END IF 

IF ch#=50 THEN '2 => Avvicinamento osservatore 
bz = bz+binc 
flag# * -1 
END IF 

IF ch#=139 THEN 'Help *> Rotazione = 0 
rx = 0 
r y = 0 
rz = 0 
f1ag# = -1 
END IF 


IF eh#=8 THEN 'Tasto 


'Rotazione 
zwi s = 
rotf = 
gruenf = 
blauf = 
zwi s = 
rotadd = 
gruenadd = 
blauadd = 


parametri 

rotf 

gruenf 

blauf 

zwi s 

rotadd 

gruenadd 

blauadd 

zwis 


indietro 

colore: 


*> cambio colore 
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'Assegnazione colori: 

• FOR i =2 TO anz. farben%-l 

farbe = INT<i*100/15 + .5>/lCiO 
rot « farbe*rotf+rotadd 
gruen = farbe*gruenf+gruenadd 
blau * farbe*blauf+blauadd 
IF rot>1 THEN rot* 1 
IF gruen>l THEN gruen»1 
XF b1au>1 THEN blau=l 

PALETTE i,rot,gruen,blau 
NEXT i 
END IF 

'Se finestra chiusa -> fine 
IF WINDOW(7)=0 THEN 
flagX=l 
END IF 

WEND 

WEND 

WINDOW OUTPUT 1 
SCREEN CLOSE 2 

END 


'Lettura dati oggetto: 

SUB get.objects STATIC 

'Lettura coordinate punto: 

SHARED apX 

READ apX 'Numero punti 

DIM SHARED xrX(apX-1),yrX(apX-1),zrX(apX-1) 
DIM SHARED xe (apX-1 ),ye(apX- 1 >,ze(apX-1> 

FOR i=0 TO apX-1 

READ xrX<i),yrX(i> ,zr%(i> 

NEXT i 


'Lettura definizione superfici: 
SHARED afdX, afzX 


READ afdX 
afzX = afdX 
READ eckenmaxX 


'Numero superfici 
'Numero superfici 
'N.ro massimo di 


definite 
da tracciare 
angoli e superfici 
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DIM SHARED 
DIM SHARED 
DIM SHARED 
DIM SHARED 


f ldX (afd’/.-l, eckenfnaxX-1 >, f lzX (afzX-1 
anzeckdX (afdJC-l > , anzeck zV. (afzX-1 ) 
sort.fX<afzX-l>,mit.z<afzZ-l> 
farbe(afzZ-1> 


eckenmaxX-l) 


FOR i = ù TO afdX-1 

READ anzeckd): < i ) 'Numero angoli di questa superficie 
FOR k=0 TO anzeckd/i ( i )-1 
READ f ld>£ (i , k) 

NEXT le 
NEXT i 


END SUB 


'Trasformazione di tutti i punti spaziali: 
SUB transform STATIC 
SHARED apJi 

SHARED sx,sy,sz,tx,ty,tz,rx,ry,rz 


'Calcolo costanti per 
si.x = SIN(rx) : co.x 
si.y - SIN(ry) : co.y 
si.z = SIN(rz> : co.z 


la rotazione: 
= COS(rx) 

= COS < ry) 

= COS<rz) 


A 

B 

C 

D 

E 

F 

fi 

H 

J 


co.y * co.z 
co.y * si.z 
-si . y 

si.x*si.y*co.z 
si.x*si.y*si.z 
si.x*co.y 
co. x*si.y*co. z 
co. x*si.y*si.z 
co. x*co.y 


- co.x*si.z 
♦ co. x*co.z 

+ si.x*si.z 

- si.x*co.z 


FOR i*0 TO apX-l 
' Trasformazioni 


xt = 

sx*xrX(i) 

♦ tx 


yt = 

sy*yrX(i> 

♦ ty 


zt = 

sz»zrX(i) 

♦ tz 


X « < i ) 

= xt*A * 

yt*B ♦ 

zt*C 

ye ( i ) 

= xt*D + 

yt*E ♦ 

zt*F 

ze ( 1 ) 

= xt*S + 

yt *H ♦ 

zt* J 


NEXT i 


'Scala 

’e traslazione 


'Rotazioni 


E-.: SUB 


Froiezione di tutte le coordinate spaziali sul piano: 
i.S projektion STATIC 
SHARED ap/C 
S-*ARED bx.by.bz 


FOR 


1=0 TO apM-1 
' Proiezione 
zwis = ze(i) 
-e(: » = bx - 
> e■:} = by - 


IV SE 


centra 1 e : 

- bz 

bz * < e(i)-bx)/zwis 

bz * (ye(iJ-by)/zwis 
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'Filtraggio di tutte le superfici coperte 
'e selezione dei valori z medi: 


SUB verdecke STATIC 
SHARED afdX, afzfc 
SHARED bx.by,bz 


afzX = 0 


•Numero superfici da tracciare 


FOR i=0 Tù afdX-1 

'Fase 1: Analisi dorso della superficie: 

• ************ *************************** 


'Determinazione di due vettori indipendenti 
'linearmente della superficie: 


angolari della superficie 


' V ® P 

2-P1 // w 

= P3-P 

'dove: 

P1.P2.P3 

= Punt 

PI v = 

f ldlitì.O) 



P2X - 

fidici i, 1 ) 



P3X = 

fidati,2) 



PI. x& 

= xelPl •/.) 



Pl.yfc 

= ye(Pi:<) 



Pl.z«* 

■ ze(Pl X) 



v. xSc = 

xe (P2SO * 

pi. 


v. yh - 

ye(P2X) - 

pi. 

y& 

v. z& = 

ze(P2X) - 

pi. 

z& 

w. x& = 

xe(P3JC> - 

pi. 

x& 

w. y & = 

ye <P3X) - 

pi. 

yfy 

w. = 

ze <P3X) - 

pi. 

Z & 


'Determinazione prodotto vettoriale p = v x w: 
p.x& s v. y&*w. z& - v.z&*w.y& 
p.y& 3 v. zS«*w. x& - v.x&*w.z8< 
p.z& = v. x&*w. y& - v. y&*w. x& 


•Calcolo del vettore dello sguardo s da osservatore a PI: 
s. xSt = PI. x& - bx 
s.y& = Pl.y& - by 
s.z& * P1.z& - bz 

'Calcolo prodotto scalare q = p * s : 
qS< = p.x&*s.x& ♦ p.ylt* s.y& ♦ p. z&*s. zi 


' Contro1.1 o segno di q: 
IF q&>0 THEN 


'Identificazione della superficie come visibile: 
anzeckz5< <afz%) = anzeckdX ( i ) 


sum.z * 0 

FOR k = Q TO anzeckdJC ( i ) -1 

flz%(afzX,k) = fldK(i,k) 'Trasferimento definiz. superf. 
sum.z * ze ( f ld>i < i , k ) > ♦ sum.z 'creazione della somma z 
NEXT k 


SOSUB farbe 


'Ottenimento valore colore della superf. 
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P* 2: selezione valore medio z 

••*«<*t***tt*****t*tt», <tt( , t ,,, t 


‘Memorizzazione valore medio z in matrice 
mittel = subì, z / (anzeckzX (afzX) -1 ) 
mit.z(afzX) = mit-t-el 


"Ordinare l'indice 
k = 0 


uperfici nella matrice di sort secondo z 


Ricerca punto selezione: 

WHILE (mittel <= mit.z(sort. fX (k) 1 ANO k < af: 

k = k + l 
WEND 

IP k <= afzM THEN 

■Spostamento a partire dal punto di selezior 
POR m=afzK TO k STEP -1 

sort. fX <m+1) = sort. fX (m) 

NEXT m 
E NO IP 


- afzl< 'Annotazione indice della superf 


‘Incremento numero superf. visibili 


ENI’ IF 


'Prossima superf 


MT SUB 

:*lenimento intensità' colore della superf. 


a-be 


S-iARED lq.x&, lq. y&, lq.zS, 

S-eAREt> li.int, fl.int, hin. int 

Vettore dal punto della superf. alla fonte di luce 
« P1.X& - lq.xi. 

--yt = PI. y?< - lq.yj, 

= PI. Zi. - lq.z!< 

Intensità' della luce incidente: 

■"“*** ” (p.xif*p.xi< ♦ p. y!<*p. yS< * p.zSc*p.zi.) 



cos. a * <L.x?«*L.x8( + L.y&*L.y8c + L. zS<*L. z&> 


p.xi<*L.xS< * p. y!<*L. y& ♦ p. z!<*L. zS<>/SOR(cos. a) 


cos 

'a-b 


hin.int*fi.int 
a < 0 THEN 
= fart. - li. in' 


1i.int*f1.int * cos 


'Intensità' di sfondo 
'Superf. rivolta alla luce? 
cos.a ‘ SI! determinare l'in¬ 



cidenza della luce 
'solo fra 0 e 1 ! 


f arb 


INT(farb) 




't'ati oggetto: 

• ************ 

'Coordinate tridimensionaii del punto: 

'Numero dei punti: 

DATA 10 

'Punti oggetto: 

DATA 0, 0, 0, 6, ù. 0, 6, 10, 0 

DATA 0.10, 0, 3,15, 0. 3,15,15 

DATA 6,10,15, 6, 0,15, 0, 0.15 

DATA 0,10,15 


'Definizioni superflei: 

'Numero delle superfici: 

DATA 9 

'Numero max. di angoli di una superficie: 
DATA 4 


'Numero degl.i 
DATA 4, 3. 0 

DATA 4, 2, 1 

DATA 4, 6, 7 

DATA 4, 9, 8 

DATA 4, 0, S 

DATA 4, 4, 2 

DATA 4, 5, 9 

DATA 3, 3, 2 

DATA 3, 6, 9 


angoli ♦ numero 
1 , 2 

7, 6 

8, 9 
0, 3 
7, 1 
6 , 5 
3, 4 

4 

5 


punti angolari 


delle superfici: 


Nonostante la lunghezza del programma ci sorprenderemo nel vedere che abbiamo 
già appreso qualcosa. Conosciamo già molto dai Capitoli precedenti: le scale, le tra¬ 
slazioni, le rotazioni, le proiezioni centrali eco., eco., eco. .. Non abbiate paura di esa¬ 
minare il programma, in ogni caso ne vale la pena! 


Nel momento in cui il programma viene lanciato, apparirà, come al solito, un nuovo 
schermo sul video. Subito dopo vedremo la nostra vecchia casetta, questa volta un 
po’ più perfezionata. Pensiamo ancora un po’ al funzionamento prima di entrare com¬ 
pletamente nel programma. Siamo di nuovo nella situazione di modificare la casetta 
(o ogni altro oggetto a piacere) tramite la pressione dei tasti. Abbiamo a disposizione 
i tasti seguenti: 


cTasto sinistro del Mouse> Posizionamento dell'oggetto 
<Cursore a sinistra> Elevazione dell'angolo di rotazione attorno all’asse y 
<Cursore a destra> Diminuzione dell’angolo di rotazione attorno all’asse y 

<Cursore su> Elevazione dell’angolo di rotazione attorno all’asse x 

<Cursore giù> Diminuzione dell'angolo di rotazione attorno all’asse x 
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<Del> 


< + > 


<-> 


< 8 > 

< 2 > 

<Help> 

< Spazio indietro 

< Gadget di chiusura> 


Inserimento/disinserimento dell’incorniciatura della su¬ 
perficie 

Ingrandimento dell'oggetto 
Riduzione dell’oggetto 
Allontanamento dell'osservatore 
Avvicinamento dell'osservatore 
Tutti gli angoli di rotazione = 0 
Cambio di colori 
Termine del programma 


Non perdiamo altro tempo e passiamo a descrivere il programma: 

All'inizio troviamo naturalmente tutte le solite inizializzazioni. Ci si è dedicati molto 
all'applicazione del colore. L’oggetto dovrà apparire in seguito, a seconda della pres¬ 
sione dei tasti, nei colori rosso, verde o blu (eventualmente con altre aggiunte di colo¬ 
ri). Ogni colore è disponibile in 16 sfumature (da 0 a 15). Le 14 intensità più chiare 
vengono memorizzate in 14 registri di Palette, in modo da essere a disposizione in qual¬ 
siasi momento. I due registri inferiori sono riservati per i colori della cornice e per i colo¬ 
ri di sfondo. Il programma ha istituito lo schermo relativo naturalmente con quattro 
gradazioni di colore (16 colori). 

L’inizializzazione di colore descritta ha luogo nel primo loop FOR...NEXT del pro¬ 
gramma. Non irritiamoci ancora a causa di formule complicate. Qui verranno infatti con¬ 
vertiti i valori di intensità dei colori da 0 a 15 nei valori tra zero e uno (con 
arrotondamento), dei quali avrà bisogno l'AmigaBasic nel suo comando Palette, inol¬ 
tre, il programma calcolerà le intensità per ognuno dei tre colori di fondo. A questo 
punto si predisporranno le modifiche per renderlo più gradevole e piacevole, nel caso 
in cui i colori selezionati non fossero corrispondenti al proprio gusto. 


A questo punto i valori di partenza vengono selezionati per la fase di messa in scala, 
di traslazione, di rotazione, per la posizione dell’osservatore, per la traslazione dei pia¬ 
ni e la scala dei piani, nonché alcuni valori di incremento per il cambiamento conforme 
ai tasti di tali parametri. Anche in questo caso sarà il nostro campo di attività a trovarsi 
in "indagine” da parte di tale programma, in quanto si potrà regolare e governare nel 
vero senso della parola. 

Prima di venire al nocciolo della questione, diamo ancora un chiarimento su di un 
passaggio interessante del programma: 


- Ol £ WINDOUIB >-> 27 , 1 

«laqs = WIND0W(8>+32 

FQI ÉW f 1 aas, PEEKW( fi ags) or 8 


Con il primo POKE regoliamo il colore del cosiddetto Pens OUTLINE sul registro di 
=a'ette 1 (per gli amici del C è forse già nota la funzione SetOPen( )). Questo "pastel- 
; viene utilizzato da alcune funzioni grafiche del sistema operativo (per es. dai co- 
—and di area), per tracciare per es. cornici di superfici. Per comunicare a tali funzioni 






che dovranno tracciare immediatamente alcune cornici, si dovrà impostare il flag 
OUTLINE di area con il secondo POKE. In seguito nel programma scopriremo una 
seconda posizione, nella quale tale flag ritornerà ad essere cancellato come reazione 
della pressione di un tasto (in questo caso Del). Da ora in avanti, ogni superficie verrà 
tracciata senza cornice. Non potremo così far funzionare la funzione SetOPen( ), poi¬ 
ché questa rappresenta solo una macro in C e non è disponibile nella serie di comandi 
del sistema operativo. 


Ed ora l’essenziale, finalmente! Introduciamo l'intera operazione tramite un salto alla 
routine get.objects. Come si apprende dal commento nel programma, a questo punto 
vengono installate numerose matrici e vengono letti dei dati dalle righe DATA, e cosi 
via. Non è difficile comprendere la routine stessa. Solo la funzione delle matrici dovrà 
venire analizzata accuratamente. I campi seguenti di inizializzazione hanno significato 
fondamentale per l’intero programma: 


xr°/o( ),yr°/o( ),zr%( ) 
xe( ),ye( ).ze( ) 

fld%(,) 
anzeck%( ) 
flz%(,) 
anzeckz%( ) 
sort.f%( ) 
mit.z%( ) 
farbe( ) 


Coordinate spaziali di tutti i punti 

Matrici di calcolo per le coordinate del punto, in seguito: 

coordinate dei piani 

Tutte le superfici definite costituite dai numeri dei vertici 

Numero degli angoli di tutte le superfici definite 

Successivamente: tutte le superfici da tracciare (!) 

Numero degli angoli di tutte le superfici da tracciare 

Numerazione delle superfici selezionate 

Profondità intermedie selezionate 

Valori di intensità del colore di tutte le superfici 


Tali matrici utilizzate parzialmente in seguito contengono tutte le informazioni che ne¬ 
cessitano al programma, per tracciare tutti gli oggetti desiderati nel tipo e nel modo 
esatto. Impareremo in seguito la spiegazione di tutto ciò. 


Come avremo forse già notato, in questo programma si è rinunciato ad alcune defi¬ 
nizioni di linee. Nessuna meraviglia, avremo a che fare quasi esclusivamente con su¬ 
perfici. Un oggetto è costituito anche da un numero indefinito di superfici. Ognuna di 
esse, a sua volta, è costituita da diversi vertici (almeno tre), che vengono listati in una 
sequenza perfettamente chiara in senso orario (non dimentichiamo l’algoritmo delle su¬ 
perfici nascoste!). Ogni definizione di superficie è costituita da un numero, il quale indi¬ 
ca il numero dei vertici (anzeck%( )) e da una matrice dei vertici. Per creare un oggetto 
dovremo, per prima cosa, concentrare tutti i vertici e predisporli nella matrice dei punti. 
In seguito numerare tutte le superfici di questo oggetto e listare superficie per superfi¬ 
cie e vertice per vertice. 


A questo punto, rivolgiamoci di nuovo al programma principale, che proseguirà con 
grandi loop principali. Si concluderà se chiuderemo la finestra di ingresso tramite il gad¬ 
get CLOSE. Senza tanti preamboli, richiameremo le tre grandi routine che prepareran¬ 
no tutti i dati spaziali e li predisporranno per il disegno: 






r 


transform Trasformazione di tutti i punti spaziali 

verdecke Riconoscimento di tutte le superfici da tracciare e selezione della pro¬ 
fondità (nonché calcolo del colore) 
projektion Conversione in coordinate piane del punto 


A questo punto, non assisteremo più a nessuna emozione, in quanto abbiamo già 
conosciuto queste routine dagli altri programmi. Rotazione, traslazione e scala di tutti 
i punti spaziali appartengono ormai al passato. 


Di estrema importanza nella routine è “scoperta”; questo sarà il nostro nuovo argo- 
mento! Per I introduzione della ricerca del retro della superficie, il programma sceglie- 
rà due vettori del piano indipendenti linearmente. Tuttavia, ciò presuppone che si siano 
indicati correttamente i dati delle nostre superfici. Diventerà piuttosto complicato se do¬ 
vremo fare in modo che tre vertici si trovino su una stessa linea. Di conseguenza, i 
vettori ricercati non saranno indipendenti linearmente. Risultato: confusione totale. 


_ Vengono selezionati il vettore v dal primo vertice (Pi) al secondo (P2) e il vettore 
w dal primo al terzo (P3). Un vettore si calcola naturalmente tramite la differenza di 
due vettori del punto. Nello stesso modo verrà determinato nella routine. 


In seguito si dovrà determinare, in conformità all’algoritmo, il vettore perpendicolare 
alla superficie, tramite il prodotto vettoriale p = vxw, e poi il vettore dello sguardo s 
dall’osservatore al punto PI e in seguito il prodotto scalare q = p*s. A questo punto, 
potremo verificare il segno di q. Nel caso in cui questo sia negativo o uguale a zero, 
la superficie non sarà visibile (si potrà proseguire nella ricerca delle superficie succes¬ 
siva), e nel caso in cui questo sia invece positivo, potremo memorizzarla nella matrice 
che contiene tutte le superfici da tracciare: flz°/o(,). Non si potrà naturalmente dimenti¬ 
care la matrice del numero angolare anzeckz%( ). Di conseguenza, potremo volgere 
al termine la realizzazione dell’algoritmo per calcolare il retro delle superfici. 


Successivamente incontreremo la chiamata di sottoprogramma “colori” con un pic¬ 
colo intervallo che non appartiene alla struttura. Siccome dovremo impostare nell'Ami- 
gaBasic un piccolo valore per i tempi di esecuzione del programma, potremo chiudere 
un occhio. Si tratta dell attribuzione del colore. Naturalmente, sarà molto semplice indi¬ 
care e preparare i colori per ogni superficie da tracciare. Il perfezionista dichiarerà che 
è necessario avere in qualche modo una sorgente luminosa per le diverse sfumature 
di colore e per aumentare l'effetto spaziale. In questo sottoprogramma calcoleremo 
con il nostro Amiga l'intensità della luce che incontreremo sulle superfici. Questo cal¬ 
colo sarà diverso da superficie a superficie in quanto bisognerà tener conto degli an¬ 
goli della luce (un problema simile a quello per l'osservatore). La formula utilizzata per 
ciò (una formula semplice e nessun algoritmo complicato) non dovrà in questo caso 
venire spiegata. Ciò accadrà infatti nel Capitolo del Ray-Tracing, il punto fondamentale 
del nostro libro, che non ci dovrà sfuggire. Consultiamolo di nuovo se ne vogliamo sa¬ 
pere di più. Per il calcolo della formula bisognerà conoscere il vettore perpendicolare 
alla superficie, che dovrebbe già essere stato calcolato nella ricerca della visibilità. 

-- 213 








Il programma memorizza l'intensità di colore preparata (un valore tra zero e uno) nel¬ 
la matrice farbe( ) per l'utilizzo successivo. 

A questo punto entra in azione la fase 2 del test di visibilità: le superfici vengono 
selezionate secondo la nostra priorità z. Come già detto, semplifichiamo la cosa deter¬ 
minando un valore z intermedio per ogni superficie. Esso viene calcolato dalla somma 
dei valori z di tutti i vertici divisa per il numero dei vertici. Il valore z determinato varrà 
naturalmente solo per il centro delle superfici. 


Il ruolo della seconda fase sarà quello di selezionare le superfici in modo corrispon¬ 
dente al loro valore z intermedio. In seguito, tutte le superfici dovranno venire tracciate 
in sequenza con z in ordine discendente. La selezione ha luogo tramite semplice intro¬ 
duzione nella giusta posizione. Poi continueremo non con le definizioni di superficie, 
bensì solo con i numeri delle superfici. Nella matrice sort.f%( ) è presente la numera¬ 
zione di tutte le superfici nella sequenza nella quale esse dovranno venire tracciate. 


Dopo ciò, avremo già realizzato tutto relativamente alla visibilità o invisibilità di una 
superficie, per cui dovremo ridedicarci al programma principale. La funzione successi¬ 
va viene chiamata "proiezione". Non più difficoltà particolari, non più lunghezze parti¬ 
colari e non più incognite particolari: proiezione centrale. Risparmiamoci lunghe 
spiegazioni e arriviamo subito al nocciolo della questione. 


Il passaggio successivo sarà finalmente il disegno: cancellare lo schermo, regolare 
il motivo delle linee, tracciare superficie per superficie sullo schermo. 


Il numero delle superfici da tracciare si trova in afz°/o. La numerazione nelle giuste 
sequenze in sort.f%( ). Per le superfici attuali di volta in volta, il numero viene trasferito 
a flaech.nr%, che servirà come indice (oltre al numero di punto k) per la matrice flz%(,) 
della superficie. Da tale matrice si ricaverà solo numero del punto per numero del pun¬ 
to secondo punkt.nr%, che, da parte sua, viene utilizzato come indice per le matrici 
proiettate del punto xe( ) e ye( ). 


Ogni punto verrà arrestato e trasmesso al comando AREA. Quando questa è com¬ 
pleta, sarà stato preparato anche ogni vertice e il programma avrà impostato anche 
il colore esatto che sarà a disposizione nella matrice farbe( ) per ogni superficie, e quindi 
tracciato: AREAFILL. 


A questo punto tutte le superfici sono tracciate e l’immagine è pronta. Ora si attende¬ 
rà l'indicazione dell'utente in modo che egli possa approntare, analizzare e introdurre 
le reazioni corrispondenti. Cosa vi posso ancora dire se non di iniziare il gioco dal prin¬ 
cipio, tutto in velocità Basic? 

Tutto chiaro? Bene, precipitiamoci ora ad eseguire altri oggetti. Potrete ampliare il 
programma anche per le vostre singole necessità. Buon divertimento! 
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CAPITOLO 6 


Più realisticamente: 
perfetta grafica tridimensionale 
con effetti di luce, 
riflessione e ombreggiature 
tramite Ray-Tracing, 
completo utilizzo dei colori deH’Amiga. 



Ciò che il nostro elaboratore ha compiuto fin'ora per quanto riguarda la grafica è 
certamente notevole. Altrettanto notevole è naturalmente anche la velocità dell'elabo¬ 
ratore, che esegue i calcoli più complessi e ciononostante riesce, in tempo reale, a 
ruotare sullo schermo tutti gli oggetti, a ingrandirli, spostarli etc. Ciò che fin'ora ci ha 
colpito di più è sicuramente la verosimiglianza con tutti i fattori che costituiscono la real¬ 
tà. Nella relatà infatti ci sono anche luci e ombre, gli oggetti riflettono la luce, sono opa¬ 
chi o lucidi, trasparenti o a specchio, hanno i colori più svariati dal blu al bianco, dal 
rosso al verde. Il fatto che tali effetti siano realizzabili solo con il massimo sforzo, appli¬ 
cando complessi metodi matematici, con i modelli visti fin’ora, non ha bisogno di veni¬ 
re ricordato; basta pensare all'algoritmo delle superfici nascoste. Ora vogliamo imparare 
invece una tecnica che risolva questi aspetti in maniera molto più semplice, anche se 
più lenta. Con questa tecnica anche gli effetti più complicati, quali il problema delle 
linee nascoste o delle ombre e luci, diventano un gioco da ragazzi. Tale tecnica ha 
un nome: Ray-Tracing. 


6.1. Principi matematici del Ray-Tracing 


Osservando il Ray-Tracing si nota immediatamente che si fa un uso molto intenso 
del calcolo vettoriale che abbiamo già incontrato in precedenza. Diamo quindi un’altra 
occhiata ai capitoli che ne parlano (Cap.: “Basi matematiche per i calcoli tridimensio¬ 
nali" oppure Appendice). Senza il calcolo vettoriale infatti non riusciremmo a venire fuori. 


La parola Ray-Tracing significa qualcosa come "Inseguimento del raggio". Infatti 
in questo caso i raggi di luce vengono inseguiti nel loro percorso dalla fonte di luce, 
attraverso i veri oggetti, fino all’occhio dell’osservatore. Tutto ciò con una piccola diffe¬ 
renza: l'inseguimento va nella direzione opposta. Esso infatti inizia al punto d’arrivo 
del raggio luminoso, cioè dall’osservatore, e ripercorre all'indietro il percorso del rag¬ 
gio, attraverso gli oggetti fino alla fonte luminosa. Con ciò siamo sicuri che verrranno 
tenuti in considerazione solo quei raggi di luce che colpiscono veramente l’occhio (o 
la macchina fotografica ecc.). 


Tecnicamente, ciò accade così: ipotizziamo di stare seduti davanti a uno schermo 
e di osservare il mondo retrostante attraverso esso (stiamo ipotizzando che lo schermo 
sia composto solo da una lastra di vetro). Tale lastra di vetro può quindi venire vista 
come piano di proiezione, (Ved. Fig. 6.1), sulla quale è rappresentato il mondo retro¬ 
stante. 


Nel nostro procedimento, dovremo attribuire ad ogni punto di questo schermo il co¬ 
lore adeguato, per un totale, per esempio, di 320 x 256 punti, se operiamo in modo 
bassa risoluzione. Il calcolo del colore di ogni singolo punto è compito nostro. Immagi¬ 
niamo un raggio dell’occhio dell'osservatore che passa attraverso il punto da calcolar¬ 
si dello schermo e va nel mondo retrostante. Esso si perderà nell'infinità dello spazio 
oppure incontrerà uno o più oggetti che si trovano nel mondo. 
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Nel primo caso, il punto assumerà semplicemente il colore dello sfondo. Nel secon¬ 
do caso invece, assumerà il colore dell'oggetto incontrerà per primo, cioè quello più 
vicino all'osservatore (e con ciò abbiamo quasi risolto il problema delle linee e superfic 
nascoste). Ciò che accade in seguito dipende dalla conformazione dell'oggetto. Al fine 
di rendere più interesssante questa tecnica, vediamo subito un paio di esempi: 


Se nello spazio non esiste una fonte di luce ben determinata ma c'è solo un chiarore 
diffuso e l'oggetto è una semplice immagine blu opaca, il colore di quel punto specf - 
co sulla lastra di vetro sarà il blu. L’oggetto, però, può anche essere a specchio In 
questo caso dovrà venire determinato un secondo raggio, che dovrà venire calcolato 
secondo la legge “angolo di incidenza uguale all’angolo di uscita". Questo raggio po¬ 
trà di nuovo disperdersi nello spazio o incontrare un altro oggetto. Se incontra un og¬ 
getto normale, il colore di tale oggetto verrà assunto come colore del punto, ma se 
anche questo secondo oggetto è a specchio, il processo continuerà verso un ai*ro e 
così via. 


L'oggetto, però, può anche essere trasparente. Quindi il raggio verrà rifratto dalla 
superficie secondo la legge della rifrazione, ne uscirà dall'altra parte e continuerà ver¬ 
so l'oggetto successivo. 


Forse però c'è anche una o più fonti di luce. In questo caso verrà tracciato un ulterio¬ 
re raggio dal punto nel quale il raggio originale ha incontrato l’oggetto, fino alla fonte 
di luce. In ciò, l’angolo di questo raggio rispetto alla superficie dell'oggetto dipenderà 
dalla presenza o meno di un altro oggetto fra lui e la fonte di luce (ombreggiatura). 


Stiamo scoprendo come ottenere effetti complicatissimi con mezzi semplici che ap¬ 
profondiremo nelle pagine seguenti, descrivendoli anche da un punto di vista mate- 
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matico. Impareremo come trattare le forme di oggetti più disparati e come realizzare 
tutto ciò in un programma, cosa che tuttavia non è ancora semplicissima. 


Il lavoro principale di un programma di Ray-Tracing è costituito dal calcolo del punto 
di intersezione dei raggi con i più diversi oggetti del mondo. A tale scopo è necessario 
circa il 75-95% del tempo di calcolo. La velocità di un programma di Ray-Tracing di¬ 
pende quindi essenzialmente dagli algoritmi che sono stati scelti per il calcolo del pun¬ 
to di intersezione con gli oggetti. Il tempo necessario alla determinazione di una 
immagine avente una dimensione pari a quella dell'intero monitor dell’Amiga potrà am¬ 
montare, a seconda del numero e complessità dell’oggetto, a diverse ore, dal momen¬ 
to che per ogni punto dell’immagine devono venire calcolati i punti di intersezione con 
ciascun oggetto dell'Immagine stessa. 



Fig. 6.2 Rappresentazione matematica dei RayTracmg 

Per la parte matematica, osserviamo la Fig. 6.2. In essa le basi del Ray-Tracing sono 
ben evidenziati. Vediamo l’osservatore al punto B (bx.by.b*). La sua posizione, nel si¬ 
stema di coordinate spaziali, è nota. Inoltre è noto il punto dello spazio al quale l'osser¬ 
vatore è volto: Z (Zx.Zy.zJ. Può trattarsi naturalmente di qualunque punto a piacere nel 
paesaggio, a seconda di quale oggetto inseriremo in seguito al centro della lastra di 
vetro. In ogni caso, esso non può coincidere con l'osservatore B. 

Il vettore da B a Z, chiamato s', è quindi il cosiddetto vettore (allungato) dello sguar¬ 
do,cioè il vettore che indica la direzione nella quale l’osservatore sta guardando. Esso 
sarà, in ogni caso, perpendicolare alla lastra di vetro. Inoltre deve essere nota la di¬ 
stanza dell’osservatore della lastra di vetro. Si tratta della distanza tra B ed M (M è il 
punto centrale del vetro). In alternativa potremo indicare direttamente il vettore allun- 











gato dello sguardo o il punto cui si sta guardando. Ambedue hanno i loro vantaggi 
e svantaggi. Mentre nel primo caso, modificando la posizione dell’osservatore, il punto 
cui si guarda resta costante, cioè l'osservatore continua a guardare lo stesso oggetto, 
e cambia la direzione dello sguardo, nel secondo caso ci troveremo di fronte alla situa¬ 
zione esattamente contraria: resta invariata la direzione dello sguardo ma cambia il punto 
cui si guarda. Lasciamo quindi aperte queste due possibilità. 


Il vettore da B a M si chiama s (vettore dello sguardo) la cui lunghezza è notoriamen¬ 
te |s| (s assoluto) e non può essere uguale a z. Esso corrisponde all’ampiezza di fuoco 
di un obiettivo e viene impostato in modo fisso a 1. Nel nostro algoritmo utilizziamo 
ancora, in aggiunta, un cosiddetto angolo di osservazione W x . Esso determina la par¬ 
te di mondo che verrà rappresentata sulla lastra di vetro. Avremmo potuto ottenere 
lo stesso effetto con la distanza dell'osservatore dal vetro, che abbiamo impostato in 
modo fisso a 1. Tuttavia il modo da noi scelto è forse un pò più comprensibile. 


Il programma dovrà inoltre conoscere un paio di altri parametri: la risoluzione x e 
d y, cioè xa ed ya, nonché le grandezze x ed y del punto, cioè xpg ed ypg, al fine 
di non deformare l'immagine. Da tali parametri viene calcolato anche l’angolo di os¬ 
servazione wy, che tuttavia non è necessario, xa ed ya indicano propriamente solo il 
numero dei punti da rappresentare nelle direzioni x ed y, cioè praticamente la dimen¬ 
sione della finestra. Più i valori per essi scelti sono piccoli, minore sarà il numero di 
punti da calcolare e maggiore sarà la velocità di elaborazine dell'immagine. Inoltre, 
per semplificare il calcolo, stabiliamo che la lastra di vetro non venga ruotata attorno 
all'asse z. I punti angolari di destra e di sinistra avranno quindi la stessa coordinata 
y l'uno rispetto all'altro, mentre quelli superiori e inferiori avranno, l'uno rispetto all’al¬ 
tro, delle coordinate x uguali. Questa decisione non è affatto tragica, in quanto nessu¬ 
no vorrà inclinare il proprio monitor. 


Calcoliamo dapprima il vettore s. Conosciamo solo la sua lunghezza |s|, mentre la 
sua direzione è la stessa di s’ (vettore allungato dello sguardo. Quindi vale: 

s = h*s’ 


e, secondo la difinizione delle lunghezze dei vettori: 

|S|2 = S.,2 + Sy 2 + S* 2 

Il vettore s' è facilmente determinabile dai punti terminali B e Z (notare che i punti 
possono anche venire visti come vettori dal punto zero al punto in questione): 

B + s’ = Z < = > s' = Z-B 


Quindi vale anche 
s = n * (Z-B) 
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e perciò 


|s| = n * |Z-B| < = > 

n = 

|Z-B| 

Quindi otterremo 


s 


|s| 

|Z-B| 


* (Z-B) 


La lunghezza |Z-B| del vettore (Z-B) è facilmente determinabile tramite la nota formu¬ 
la della lunghezza: 

Ivi 2 = v x 2 + v y 2 + v z 2 


|v| viene quindi determinato dalla radice della parte destra dell’equazione. Dal mo¬ 
mento che |s| è sempre uguale a 1, l'equazione è notevolmente semplificata. Con ciò 
determiniamo il vettore dello sguardo s vero e proprio. 


Al fine di indicare un punto P a piacere sulla lastra di vetro, utilizzeremo (naturalmen¬ 
te oltre al punto di osservazione e al vettore dello sguardo) i due vettori unitari xe ed 
yé. Essi forniscono rispettivamente la distanza e ed y di due punti. La distanza dipende 
naturalmente anche dalle grandezze del punto xpg ed ypg. Un punto P con le coordi¬ 
nate x,y viene quindi determinato come segue: 

P = B + s + (x*xpg) * xe + (y*ypg) * yé 


Tenere presente che il punto zero del sistema di coordinate dello schermo si trova 
nel suo centro M. Quindi x ed y hanno valori da -xa/2 fino a +xa/2 oppure -ya/2 fino 
a + ya/2 (xa ed ya sono rispettivamente le risoluzioni e ed y dello schermo). 


Il calcolo dei vettori unitari xé ed yé ci interessa in modo particolare, anche se è un 
po’ più complicato. Determiniamo dapprima xé: dal momento che il vettore dello sguardo 
s deve essere perpendicolare alla lastra di vetro, il prodotto scalare s*xe deve essere 
uguale a zero. Con ciò, per la direzione di xe, abbiamo una definizione: 

s*xé = 0 < = > 

s/xe* + Sy*xe y + sz*xe z = 0 


Come secondo criterio relativo alla lunghezza di xe, vale: 
ME = (xa/2) * xpg * |xé| 





dove 


ME Distanza fra il centro e il punto E 
xa Risoluzione x 
xpg Grandezza punto x 
|xe| Lunghezza del vettore unitario x. 

AmbedueJj:riteri devono essere adempiuti. Cominciamo con la lunghezza del vetto¬ 
re unitario |xe|: 

Osserviamo ancora una volta il disegno. Il triangolo formato dai punti B, M ed E è 
rettangolo. L'angolo retto si trova nel punto M. L'angolo a B è mezzo angolo di osser¬ 
vazione w x /2. Se cerchiamo la lunghezza della distanza ME, vale: 

tan(w x /2) = ME / |s| < = > 

ME = tan(w x /2)*|s| 

Per la lunghezza della distanza ME abbiamo già una definizione: 

ME = (xa/2)‘xpg*|xe| 

e uguagliando le due equazioni, otterremo: 

(xa/2)*xpg*|xe| = tan(w x /2)*|s| < = > 

|-| = 2*tan(w x /2)*|s| 
xa*xpg 

E con ciò abbiamo determinato la lunghezza del vettore unitario x. 

Dedichiamoci ora alla determinazione della direzione di xe. Il punto di partenza è, 
anche in questo caso, l'equazione di cui sopra: 

s x *xe x + Sy*xe y + Sz*xe 2 = 0 

Ricorderemo senz'altro di aver stabilito l’angolo di rotazione della lastra di vetro at¬ 
torno all’asse z come uguale a zero. Di conseguenza la coordinata y del piede di xe 
è identica a quella della punta (il vettore è parallelo al piano xz). Quindi varrà anche: 

xe y = 0 

L’equazione viene semplificata con 
s/xe, + Sz*xe z = 0 






Qui però dobbiamo purtroppo distinguere tre casi: 

Caso 1: s x < >0: 

In questo caso possiamo risolvere semplicemente l'equazione secondo xe x : 
xe x = -(s 2 *xe z )/s x 


Caso 2: s x = 0 e s z < >0: 

Dal momento che la divisione per zero è vietata, non è possibile risolvere l'equazio¬ 
ne secondo xe x . D'altra parte non possiamo introdurre un valore a piacere per xe x , 
dal momento che deve venire adempiuto anche il secondo criterio (lunghezza del vet¬ 
tore xe). Aiutiamoci quindi con la soluzione secondo xe z : 

xe z = -(s/xeJ/Sz 


Caso 3: s x = 0 e s z = 0: 

Qui abbiamo veramente le mani legate. Non ci è permessa nessuna delle due solu¬ 
zioni presentate, ma ciò non è poi tragico, in quanto il vettore s in questo caso corre 
parallelo all'asse z (e siccome non può essere il vettore zero, in questo caso Sy è di¬ 
verso da zero!). Il vettore unitario xe che stavamo cercando dovrà quindi correre paral¬ 
lelo all’asse z. xe z è quindi uguale a zero e lo stesso vale per xe y ), mentre xe x sarà 
uguale alla lunghezza del vettore unitario: 

xe z = 0_ 
xe z = |xe| 


Consideriamo ed approfondiamo invece i casi 1 e 2. s x ed s z sono noti (vettore del¬ 
lo sguardo). Dobbiamo quindi determinare l'altra incognita^cioè xe z per il caso 1 ed 
xe x per il caso 2. In ciò ci aiuterà la lunghezza del vettoe xe, che siamo già in grado 
di calcolare: 

|xe|2 = xe x 2 + xe y 2 + xe z 2 
e, con xe y = 0 (vedi sopra): 

|xe| 2 = xe x 2 + xe z 2 


Ora può venire applicata l'equazione vista in precedenza. Facciamolo per il primo 
caso (anche s* è diverso da zero): 


|xe| 2 = xe z 2 + (-s/xej/s,,) 2 < = > 

|xe| 2 = xe z 2 + xe z 2 *(s z /s x ) 2 < = > 

|xe| 2 = xe z 2 * [1 + fe/sj 2 ] < = > 
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--— - - (per caso 1 : s x < > 0) 

1 + (s z /s x )2 


xej = 

E con ciò abbiamo un’espressione per xe x che potremo utilizzare nell'espressione 
ncontrata in precedenza per xe x . 

Per il secondo caso otterremo analogamente: 

xe, 2 = -- (per caso 2: s x = 0 e s z < >0) 

. 1 + (Sz/sJ 2 

Nello stesso modo determiniamo anche il vettore unitario y. Anche qui si devono di- 
st nguere tre casi e anche per questo vettore la coordinata x è uguale a zero. Arriviamo 
a e seguenti equazioni: 

Caso 1: Sy< >0: 

A = VyeA 

2 , —e_ 

1 + K/s,p 

Caso 2: s y = 0 e s z < >0: 

.e, = -Sy*yey/s z 



1 + (-Sy/Sz) 2 


Caso 3: s y = 0 e s z = 0: 

«e, = 0_ 

A. = lye| 

Par tutti i casi vale: 

•è = |xe| 

'«arsamente la lunghezza dei due vettori unitari è uguale, per cui la si dovrà calco- 
are volta sola all'inizio. 
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Fig. 63 Calcolo dei raggi 


Con ciò abbiamo posto le basi vere e proprie. Nel programma verrranno quindi in¬ 
seriti tutti i punti da -xa/2 a -+ xa 12 e da -ya/2 a + ya/2, in due grossi Loop di FOFL.NEXT 
nidificati. Con la formula già precedentemente illustrata: 

P m = B + s + x*xpg*xe + y*ypg*ye 


si calcola il singolo punto della lastra di vetro immaginaria (ved. Fig. 6.3). Attraverso 
tale punto deve venire tracciato un raggio dall'osservatore B verso lo spazio. Tale rag¬ 
gio (una retta) verrà calcolato secondo la forma vettoriale dell'equazione di una retta: 

P = P m + k*b 


dove 

b = P m - B 


per cui: 

P = P m + k*(P m -B) 
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dove: 


P m punto sulla lastra di vetro 
B osservatore 

6 vettore di base da B a P m 

K fattore di allungamento 

P un punto sulla retta 


A questo punto per tutti gli oggetti situati nello spazio si dovrà controllare se vengo¬ 
no intersecati o toccati dalla retta. Se ciò accade per più oggetti, per gli ulteriori calcoli 
verrà utilizzato il punto di intersezione più vicino all'osservatore, cioè quello che possie¬ 
de il K più piccolo. Come determinare i singoli punti di intersezione per i diversi oggetti 
è materia del prossimo paragrafo. 


6.2. Calcolo del punto di intersezione con corpi e superfici. 


6.2.1. Sfera 

Il più semplice e più veloce calcolo del punto di intersezione è quello fra la retta dello 
sguardo ed una sfera. Di conseguenza la sfera è l'oggetto maggiormente utilizzato per 
il Ray-Tracing. 



Osserviamo la Fig. 6.4. Stiamo cercando il vettore del raggio r, la cui lunghezza cor- 
'soonde al raggio della sfera che ha come centro il punto K m . d avrà il piede nel cen- 
ro della sfera K m e la punta sulla retta nel punto P k : 


f « P,-Kn 










*. 


P k è un punto della retta che attraversa il centro della lastra P m con il vettore di dire¬ 
zione 6 : 

P k = P m + k‘b 
quindi 

r = P m + k*b - K m < = > 
r = (P m - K m ) + k*b 

Viene quindi cercato il fattore di allungamento K che fornisce il vettore del raggio 
r. Poiché la lunghezza di r è il raggio della sfera, vale: 

|r)2 = R2 

Utilizziamo la formula di cui sopra per r: 

|(Pm-K m ) + k*6|2 = R2 

Per il vettore (P m -K m ) utilizziamo per semplicità v. Quindi varrà: 
v = P m -K m 

e quindi: 

V x = Pfnx'^mx 

V v = Pmy'^my 

V, = Pm Z -K mz 

Andiamo avanti con: 

|v + k*B|2 

v 2 + 2 *k*v*b + k 2 *b 2 
(&2)*k2 + (2*v*b)*k + (v2-R2) 

Sostituiamo: 

a = 62 = b x 2 + b/ + b z 2 

b = 2 *v *6 = 2 *(v x b x + v y b y + v z b,) 

c = V2-R2 = V„2 + Vy2 + V z 2 - R2 

ed otterremo: 
a'k 2 + b*k + c = 0 
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= R2 < = > 
= R2 < = > 
= 0 




Questa equazione di II grado potrà venire risolta secondo K. Utilizziamo la formula 
di soluzione delle equazioni di II grado: 


ki 2 = 


-b +/. b 2 - 4*a*c 
2*a 


Teniamo quindi presente che dovremo utilizzare le espressioni di cui sopra per i coef¬ 
ficienti a, b e c. Anche v x , v y e v 2 sono espressioni composte. 


In questo stadio siamo già in grado di decidere se la sfera viene intersecata o no 
ralla retta. Ciò viene determinato dalla discriminante D = b 2 -4*a*c (cioè dal termine 
sotto radice). Varrà: 

D<0 = > la retta non interseca la sfera 
C = 0 = > la retta tocca la sfera in un punto 
D>0 = > la retta interseca la sfera in due punti 


Ciò risulta dal fatto che una radice di un numero negativo (D<0) non è definita all’in- 
'erno dei numeri reali. Se D é =0, anche la radice sarà uguale a zero, per cui tutto 
'adicale scompare. K sarà quindi uguale a -b/(2*a). Se D è >0, la radice sarà rilevan¬ 
te Esistono due possibilità. 


il parametro determinato è la misura della distanza fra il punto di intersezione e l’os¬ 
servatore. Normalmente il programma decide per il K più piccolo (cioè il punto di inter¬ 
sezione più vicino) sempre che non sia negativo. Infatti, se fosse negativo, si troverebbe 
ca altra parte della lastra, per cui non sarebbe visibile. Se il K maggiore appartiene 
= una sfera, si tratterà del punto di intersezione tramite il quale il raggio esce dalla sfe- 
-a Da K è possibile calcolare in qualunque momento il punto esatto nello spazio, cosa 
zre tuttavia, nella maggior parte dei casi, non è necessaria. 


6 2.2. Superfici piane (Parallelogramma) 

calcolo del punto di intersezione con una superficie piana a forma di parallelogramma 
ss un rettangolo) è anch’esso fra i più semplici. I poligoni irregolari sono notevolmen¬ 
te o ù difficili da elaborare. Per parallelogramma si intende una superficie a quattro an¬ 
co nella quale i lati che si trovano l’uno di fronte all’altro corrono paralleli. Se i lati 
s covano ad angolo retto l’uno rispetto all’altro, si tratterà dell’eccezione chiamata ret- 
*i~goio. Se inoltre tutti i lati hanno la stessa lunghezza, si tratterà di un quadrato. 


c' nopio è chiaro: dapprima viene calcolato un punto di intersezione (del raggio 
u ose con un piano. Quindi si dovrà verificare se il punto di intersezione si trova 
a "emo di determinati limiti. 






Come definire un parallelogramma? Per la sfera abbiamo memorizzato il centro ed 
il raggio. Per una superficie è consigliabile fissare dapprima i parametri per l’equazio¬ 
ne vettoriale di un piano: 

P = P 0 + k*v + m*w 


Il punto P 0 ed i vettori v e w devono anch'essi venire memorizzati. P 0 dovrebbe es¬ 
sere un punto angolare a piacere della superficie. Il vettore v avrà il piede in P 0 e la 
punta nel punto angolare più vicino. Il vettore w avrà anch'esso il piede in P 0 , ma an¬ 
drà all’altro punto angolare (ved. Fig. 6.5). 



Con queste premesse è molto rapido determinare se un punto si trova o no all'inter¬ 
no del parallelogramma. Se per il calcolo del punto in questione devono venire inseriti 
dei valori per K o per m, o per ambedue, maggiori di 1 o minori di 0, il punto si troverà 
al di fuori della superficie. Se al contrario vale: 

O^k^l e Osmsl 

il punto P si troverà aH’interno del parallelogramma. 


Passiamo ora al calcolo vero e proprio del punto di intersezione. In Fig. 6.5 è possi¬ 
bile ricostruire il tutto. Sia P s il punto di intersezione ricercato. Esso si troverà sia sulla 
retta che sulla superficie. Per esso valgono quindi sia l'equazione per la retta che quel¬ 
la per la superficie: 

P s = Pm + s*b e 

P s = P 0 + k*v + m*w 
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dove 


P s punto di intersezione ? 

P m punto sulla lastra 

b vettore di direzione della retta 

s vettore di allungamento della retta 

P 0 punto angolare del parallelogramma e piede dei vettori vew 
v,w vettori di direzione sul piano 

k,m fattori di allungamento per vew. 

A questo punto osserviamo di nuovo il capitolo 4.3. In esso troviamo una forma alter¬ 
nativa dell'equazione di una retta, l'equazione della normale e la formula per la trasfor¬ 
mazione dell’una nell’altra. L’equazione della normale sarà quindi nel nostro caso: 


(P.-Po) * ri = 0 


ri è la normale (il vettore perpendicolare al piano) e può venire determinata tramite 
il prodotto vettoriale di v e w. 

fi = vxw 


In seguito sarà molto più facile effettuare i calcoli in questo modo, anche se a tal 
scopo è necessario calcolare in parecedenza un prodotto vettoriale. 

Utilizziamo quindi le equazioni delle rette in quelle per i piani: 

(P m + s*b - P 0 ) * ri = 0 < = > 

(Pm - Po) * n + s*b*ri = 0 < = > 
s*b*h = (P 0 -P m )*h 


A questo punto è necessario effettuare una differenziazione tra i casi che si presen¬ 
tano. Infatti ora è possibile determinare se esiste o no un punto di intersezione 

Caso 1: b*ri = 0: 

In questo caso la parte di sinistra dell'equazione è zero: 


0 = (P 0 -P m )*n 


Nel caso in cui questa espressione sia vera, sarà possibile inserire qualunque valore 
a piacere per s, la retta giace sul piano. Esistono, per cosi dire, infiniti punti di inter¬ 
sezione. 

Nel caso in cui l'espressione sia falsa, la retta correrà parallela al piano, quindi non 
esiste nessun punto di intersezione. 
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Caso 2: b*n < > 0 

Qui possiamo andare avanti con i calcoli, ottenendo per s: 

s _ (Po-Pm)*n 
b*n 



Ma s indica il fattore di allungamento per il vettore di direzione della retta. Il punto 
di intersezione P s può venire determinato. 


A noi però interessa sapere se P s non solo si trova sul piano, ma anche se si trova 
all’interno del parallellogramma. A tale scopo dobbiamo ricondurre la formula della nor¬ 
male dell'equazione del piano alla forma con K e m. I vettori v e w sono già noti: 

P s = P 0 + k*v + m*w 


In forma di parametri: 


Psx — Po* 

+ 

k*v x 

+ 

m*w x 

Psy = Poy 

+ 

k*v y 

+ 

m*w y 

Psz = Poz 

+ 

k*v z 

+ 

m*w z 


Secondo la derivata di cui al cap. 4.3, scegliamo le due equazioni per le quali valga 
quanto segue (i e j sono al posto di x, y oppure di z): 

V, < > 0 e 

Wj*v, - w,*Vj < > 0 


(es. v x < >0 e w z *v x -w x *v z < >0) 

Se non esiste nessuna combinazione di due equazioni che adempiono alle condizio¬ 
ni, ci troviamo in presenza di un errore. I due vettori v e w non sono indipendenti li¬ 
nearmente. 


Se si trovano le due equazioni che adempiono a queste condizioni (di solito sono 
le prime due) calcoleremo semplicemente K ed m come segue: 

(Ps)-P0j)*Vi - (Psi-P 0 i)*Vj 

m = --— - ! — 

Wj*V; - Wi*Vj 

k = (Psi-Po, - m*W ì)/Vì 

Prima del calcolo di K verifichiamo se m si trova all’interno detl'ambito permesso, 
che va da 0 a 1. Verifichiamo inoltre se anche k si trova in tale ambito. Se tutte queste 
condizioni sono adempiute, la retta inteseca il parallelogramma. Se s è invece negati¬ 
vo, il punto di intersezione si troverà dietro la lastra, per cui sarà invisibile. 
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Spesso i piani vengono posizionati in punti ben determinati, al fine di ridurre il tempo 
di calcolo. Di conseguenza, un pavimento potrebbe trovarsi per esempio nel piano xy 
con z = 0. Le equazioni di cui sopra diverranno pertanto molto più semplici. 


Una volta determinato che il raggio luminoso interseca la superficie, passiamo alle 
informazioni relative alla scelta del colore, in quanto sulla superficie potrà esserci una 
scritta o un piccolo disegno. Potremmo riuscirci tramite il fatto che ogni punto della 
superficie si trova in memoria sotto forma di Pixel binari, (cioè esattamente come in 
una normale memoria per immagini). Quindi i valori di K ed m indicano le coordinate 
del punto in questione sulla superficie. Sarà quindi possibile guardare in memoria co¬ 
sa c'è in tale posizione. Potrà naturalmente trattarsi di informazioni su diverse caratteri¬ 
stiche della superficie. In tal modo sarà possibile "rispecchiare” la superficie in tali 
posizioni, con il suo disegno ecc. 


A questo punto, siamo in grado di produrre e memorizzare un grafico o un testo 
con un normale programma di grafica. Questo grafico apparirà sull'Immagine del Ray- 
Tracing sulla superficie corrispondente, ruotato o ingrandito. Spesso anche i motivi proiet¬ 
tati sulla superficie vengono determinati tramite un calcolo (es. scacchiera ecc.). 


La procedura è eseguibile naturalmente anche per altri oggetti, quali sfere ecc., an¬ 
che se con un dispendio maggiore per le singole proiezioni del grafico sull'oggetto. 


6.3. Fonti di luce: Riflessioni, lucentezza, luci ed ombre 


Prima di scrivere un programma di grafica il Ray-Tracing, continuiamo con questo 
capitolo: ne vale la pena. Infatti qui apprendiamo come realizzare gli influssi nel pae¬ 
saggio della luce, degli oggetti a specchio, delle superfici lucide e opache nonché ia 
loro formazione delle ombre. Tutti questi aspetti sono strettamente correlati fra loro. La¬ 
voreremo con diverse leggi fisiche, che rivestono un ruolo importante per quest aspet¬ 
ti, e potremo anche riformulare leggi della natura, a nostro piacimento. Tali legg formule 
e deviazioni, tuttavia, non valgono per il Ray-Tracing. Sarà possibile incorporale ; acii- 
mente in altri algoritmi tridimensionali, producendo effetti sorprendenti 


E’ chiaro che non è possibile tener conto, in questa sede, di tutti gl effet: C occu¬ 
peremo spesso di formule di approssimazione, che ci alleggeriranno sostanzialmente 
il lavoro, infatti sono molti gli aspetti che rivestono un ruolo importante a ; ni de: calcolo 
dei colori e dell'intensità della luce. Per esempio, tratteremo allo stesso modo tutti i co¬ 
lori, anche se sappiamo che nella realtà ogni lunghezza d'onda viene riflessa e rifratta 
in modo diverso datte-altre. Ogni materiale, sia esso carta, oro argento o plastica, ha 
le proprie caratteristiche, non calcolabili ma deducibili solo da complicate tabelle. Non 
sarà tuttavia inutile dichiarare, per ogni singolo oggetto, se è costituito da carta bianca, 
vetro bianco ecc. Tutti questi dettagli essenziali verranno solo approssimati, al fine di 
ottenere l'immagine migliore possibile. Molti valori, costanti ecc.. che verranno utilizzati 
in seguito, sono valori dedotti dalla prassi, e noi potremo, anzi dovremo, modificarli 
in qualunque momento. 












6.3.1. Riflessione diffusa 


Abbiamo sicuramente tutti sentito parlare della legge centrale di riflessione, che vale 
sia per la luce che per il gioco del biliardo: angolo di ingresso uguale all'angolo di usci¬ 
ta. Benché questa legge teorica valga naturalmente sempre, la realtà è molto più com¬ 
plessa. Se il raggio luminoso incontra una superficie, il modo e la direzione del riflesso 
della luce dipenderanno dalla natura di tale superficie. Per esempio una superficie lu¬ 
cida si atterrà, più o meno esattamente, alla legge della riflessione. Una superficie ruvi¬ 
da o opaca,invece, riflette il raggio luminoso in tutte le direzioni possibili. Più la superficie 
è opaca, maggiormente ampio sarà il riflesso del raggio luminoso. Una determinata 
parte di luce verrà distribuita addirittura in tutte le direzioni. Per tale parte di luce si 
parla di riflessione diffusa, in contrapposizione con la riflessione a specchio. 


La Fig. 6.6 illustra questo comportamento. Per il riflesso diffuso, cioè quello che va 
in tutte le direzioni, l'angolo di incidenza del raggio luminoso sulla superficie ha impor¬ 
tanza solo per la determinazione della luminosità del singolo punto. Più la luce arriva 
verticalmente, più luminoso sarà il punto. Sappiamo tutti che all’equatore la luce del 
sole arriva sulla terra quasi verticalmente, mentre da noi ha purtroppo un angolo infe¬ 
riore, e che questo è il motivo per cui all'equatore è più caldo che qui. 



Fig. 6.6 Riflessione diffusa 


Oltre alla fonte di luce dovremo anche tener conto della luce che cade su altri ogget¬ 
ti e viene riflessa su altri oggetti ancora e/o sul nostro punto. Immaginiamo quanto com¬ 
plicato sarebbe il calcolo. Prendiamo invece solo una luminosità diffusa di sottofondo, 
che viene comunque riflessa dal nostro punto. L'intensità luminosa che risulta da tale 
luminosità di sottofondo viene aggiunta alla luce che risulta dalla riflessione. 


Giungiamo quindi alla seguente formula per l'intensità della luce irradiata da un punto: 
I = l h *Koh + Iq'fWcosfa) 
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e siccome 


n*L = |fir|Lrcos(a) 

< = > 

cos(a) = (n * L) / (|ri|*|L|) 

< = > 

cos(a) = h/|hrD|L| 

< = > 

cos(a) = ri’ * L' 


varrà anche: 



I = l h *K oh + Iq-K,* * n’*L' 


dove: 

I intensità della luce irradiata dal punto 
l h intensità della luminosità di sottofondo 

K oh costante di riflessione per la riflessione dello sfondo con 0 ^ K oh ^ 1 (chiarezza 

dell’oggetto o del colore) (anche chiarezza o colore dell'oggetto) 
l q intensità della fonte di luce 

«oq costante di riflessione per la riflessione diffusa con 1 (chiarezza del¬ 

l’oggetto o del colore) (anche chiarezza o colore dell’oggetto) 
a angolo fra il vettore della luce L e il vettore n normale al piano ( = perpendicolare) 
L vettore della luce 

L’ vettore unitario della luce (lunghezza = 1) 

ri vettore normale dal piano (perpendicolare) 

ri’ vettore unitario normale al piano (lunghezza = 1) 


L'unità per le intensità potrà venire da noi determinata arbitrariamente (es. 0-1 (X) op¬ 
pure 0-1). Le costanti e K od dipendono dalle leggi di riflessione dell’oggetto in que¬ 
stione. Se l'oggetto riflette molto, i valori per e si aggirano attorno a 1. Se riflette 
molto debolmente, questi valori saranno attorno a 0. Di solito questi due vai ori sono 
identici fra loro (K oh = Kqq). Essi forniscono una misura della luminosità di base de og¬ 
getto. Ogni oggetto assorbe una determinata porzione di luce. In presenza oe a stes¬ 
sa illuminazione, un oggetto risulta chiaro, un altro scuro. 

Se un oggetto assorbe in ugual misura tutte le parti della luce fino ad una determina¬ 
ta porzione di essa (cioè, per noi, le parti di Rosso, Verde e Blu), in presenza di luce 
bianca esso apparirà grigio. Se assorbe (quasi) tutta la luce, sarà nero. Se invece (qua¬ 
si) tutta la luce viene riflessa, esso ci apparirà bianco. 


► 


Alcuni oggetti assorbono solo determinate frequenze della luce. Se per esempio ven¬ 
gono assorbite tutte le parti di rosso e di blu. sarà solo il verde ad essere riflesso, e 
noi diremo che l’oggetto è verde. 




Dal momento che avremo sempre a che fare con oggetti colorati, che possiedono 
delle intensità di base ben determinate per i colori rosso, verde e blu, le costanti K oh 
e K od rappresentano i valori di chiarezza per tali colori di base. Ogni colore di base 
ha il proprio valore di chiarezza. La formula vista in precedenza dovrà quindi venire 
calcolata per ciascuno dei tre colori di base. In questo modo saranno possibili anche 
fonti di luce colorata, dal momento che la fonte di luce può avere anch'essa diversi 
valori di intensità l q per le tre porzioni di colore. Il risultato I sarà quindi il valore della 
chiarezza del punto per il singolo colore di base, es. verde. 


Finora non si è tenuto conto di un fattore: la distanza. Maggiore è il percorso che 
la luce ripercorre, più debole essa diverrà, in quanto si sparge. Normalmente l'intensi¬ 
tà della luce diminuisce proporzionalmente al quadrato della distanza, cioè I' = l/d 2 , do¬ 
ve d è il valore della distanza. Per adeguarsi all’estetica deH’immagine si è determinata 
la formula I’ = l/(d*K a ), dove K d è una costante arbitraria. Per semplicità viene sempre 
misurata la distanza fra la fonte di luce e il punto dell'oggetto, anche se dovrebbe veni¬ 
re considerata anche la distanza rispetto all'osservatore. Applicandola alla porzione 
di fonte di luce della nostra formula, avremmo: 


I = lh*K, 


oh 


* n'*L' 
d*K d 


6.3.2. Riflessioni a specchio 

Con ciò abbiamo a disposizione un modello molto semplice di luminosità per il no¬ 
stro programma di Ray-Tracing. Possiamo tuttavia andare avanti fino al riflesso a spec¬ 
chio. In questo caso con la parola “specchio" non intendiamo che tutti gli oggetti si 
riflettano nettamente sull'oggetto “a specchio”, cosa che accadrebbe se l’angolo di 
incidenza fosse uguale a quello di uscita (in altre parole: per un riflesso a specchio 
perfetto l’angolo b deve essere sempre uguale a 0). I raggi di luce in ingresso possono 
invece venire riflessi all'interno di un determinato campo angolare (ved. Fig. 6.7). L'in¬ 
tensità del riflesso cala con la distanza del vettore dello sguardo S dal raggio esatto 
del riflesso R. Quindi, maggiore è l'angolo fra R ed S, minore è l’intensità di riflessione, 
calcolabile con la seguente formula: 

l s = lq * W(i,l)*COS(b)< 

e siccome 

R*S = |R|*|S| * cos(b) < = > 

cos(b) = (R*S) / (|R|*|S|) < = > 

cos(b) = R' * S’ 


vale anche 

ls - lq * r(a.l) * (R' * S'y 
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Fig 6.7 Riflessione a specchio 


dove: 

l s intensità del punto tramite il riflesso a specchio 
l q intensità della fonte di luce 

b angolo fra il vettore esatto del riflesso R e quello dello sguardo S 

R vettore esatto del riflesso 

R’ vettore unitario del riflesso (lunghezza = 1) 

S vettore dello sguardo (Punto -> osservatore). Attenzione al fatto che, preceden¬ 
temente, avevamo orientato il vettore dello sguardo dall'osservatore al punto. In 
questo caso sarà necessario ricalcolarlo (S = -s). 

S' vettore unitario dello sguardo (Lunghezza = 1) 

r(a,l) funzione di riflessione a seconda dell'angolo di incidenza a e della lunghezza d'on¬ 
da della luce I con 0^r(a,l)^1. 
f messa a fuoco 

' 



In questo caso non si è ancora tenuto conto della distanza dalla fonte di luce La 
funzione di riflessione r(a,l) dipende completamente dal materiale. I diversa materiali quali 
metallo, plastica ecc. possiedono infatti un grado di riflessione molto diverso, a secon¬ 
da di quali colori vengono irradiati e quindi da quali lunghezze d'onda sia composta 
la luce. Ciò significa che i materiali modificano molto leggermente la luce che si spec¬ 
chia su di essi. E' per lo stesso motivo che per esempio molti specchi non sono com¬ 
pletamente fedeli nella riproduzione dei colori. Secondariamente il grado di riflessione 
dipende, in maniera diversa a seconda di diversi materiali, dall’angolo di incidenza. 
Tuttavia, non vogliamo occuparci in questa sede di tale complicata funzione, ma la so¬ 
stituiremo, per approssimazione, con una costante K„ che potrà venire scelta a secon¬ 
da delle necessità: 


r(a,l) = K, 
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con 0^K r ^1 








Anche la variabile f è una costante del materiale. Essa indica Quanto è concentrato 
il campo di riflesso, cioè, più f è grande, minore sarà il riflesso, a parità di distanza del 
vettore S da R. Per R, tuttavia, il riflesso è sempre intenso in ugual misura. Quindi f 
indica quanto nettamente viene riprodotta una fonte di luce. Se impostiamo dei valori 
enormi per f, otterremo una specchiatura perfetta, dal momento che l'espressione 
cos(b)' fornisce valori significativi solo per b = 0= >cos(b) = 1. Gli oggetti metallici pos¬ 
siederanno per esempio un f molto elevato (f = 50 fino a f = 100), mentre gli oggetti opachi 
avranno valori più bassi. In caso di dubbio, come per tutte le altre costanti, ci si appros¬ 
simerà con la sperimentazione. 


Diventa ora interessante abbinare gli effetti della riflessione diffusa e di quella a 
specchio: 

1 = lh ‘ Koh + ~^ ! q * ( K od*cos(a) + K r *cos(b)<] < = > 

d K d 

' = lh * K °'’ + ~ d ^K d * [K ° d ' (n ’‘ L,) + K r*( R '*S')1 

I singoli parametri dovrebbero esserci già noti. Le sostanti K oh , K d , K od , K r ed f of¬ 
frono spazio per le nostre sperimentazioni I parametri l h e l p sono costanti delle fonti 
di luce. Per queste formule si dovrà calcolare d, a e b, mentre le espressioni cos(a) 
e cos(b) sono sostituibili, come abbiamo già visto, con i prodotti scalari dei vettori unita¬ 
ri corrispondenti (un vettore unitario viene calcolato tramite il quoziente di vettore e lun¬ 
ghezza del vettore). 


Le formule indicate si riferiscono esclusivamente ad una sola fonte di luce. Se ci tro¬ 
viamo in presenza di più fonti di luce, le singole intensità luminose verranno sommate 
Luna all’altra (tuttavia si potrà usare l’espressione l h *K oh solo una volta, in quanto es¬ 
sa determina la luminosità di sottofondo). 


6.3.3. Calcolo del raggio di riflessione 

In quanto visto precedentemente abbiamo sempre ipotizzato che la direzione del 
vettore di riflessione R ci fosse nota. In caso di riflessione a specchio e totale questo 
vettore dovrà invece essere calcolato. Ved. a tal scopo lo schema allegato (fig. 6.8). 

Si ipotizza di conoscere il vettore normale h nel punto P, dove si specchia il raggio 
di luce L. Il vettore normale è, com’è noto, quello che cade perpendicolarmente sulla 
superficie in questione di un oggetto. Il suo calcolo varia da superficie a superficie (in 
caso di sfera esso sarà semplicemente il vettore del raggio al punto di specchiatura 
P. in caso di piano esso sarà il prodotto vettoriale di due vettori indipendenti linearmen¬ 
te e giacenti su quel piano). La lunghezza di n in questo caso è trascurabile. Quindi 
sono noti L (il vettore che va o proviene dalla fonte di luce specchiantesi, il suo verso 
è ininfluente) ed n. 
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Come visibile nello schizzo, il vettore di riflessione R viene calcolato da: 


R = -L + 2*L’ 


Fonte di luce - r- 

o simile 

\ L * 

w 

n 

R / 

L ’ 

W jr 


. — ^ p 

w \ 

\ L* 

- l\ 



Fig. 6.8 Calcolo del vettore di riflessione 


L’ sarà quel vettore che deriva dalla proiezione di L su ri. La sua determinazione 
è solo un po' più complessa. L' giace quindi su n, per cui è solo un allungamento o 
un accorciamento di n: 

L’ = k * n 

Il fattore di allungamento K è l'incognita che dovremo cercare. In figura riconoscere¬ 
mo un triangolo rettangolo con i lati |L| (ipotenusa) ed |L'| (cateti) e con l'angolo w fra 
tali lati. Conformemente alla definizione del coseno (ved. appendice) varrà: 

cos(w) = |L’| / |L| < = > 

|L’| = |L| * cos(w) 

Utilizziamo quindi per L’ l'equazione di cui sopra: 

|k*h| = |L|* cos(w) < = > 

k*|n| = |L|* cos(w) < = > 

k = |L|/|h|* cos(w) 


Bene. Ora abbiamo una formula per K. Tuttavia l’angolo w. o il suo coseno cos(w) 
non ci è noto. Ed ecco che ci aiuta il prodotto scalare di due vettori: 

L*n = |L|*|hrcos(w) < = > 


L*n 

|L|*|n| 


cos(w) = 













Naturalmente useremo immediatamente per cos(w) questa espressione, i cui com¬ 
ponenti sono tutti noti: 

= |L|*L>n < = > 

|nr|L|*|n| 

k = _^0_ 

|n|2 

per cui otterremo per L': 


Non cerchiamo però di portare n nel numeratore, rendendolo |n| 2 , per ragioni di bre¬ 
vità. Ricordiamo infatti che, nella moltiplicazione scalare, la sequenza deve venire rigo¬ 
rosamente mantenuta; ad esempio, (à*b)*c = à*(b*c) non vale. 


6.3.4. Formazione di ombre 

Il tener conto delle ombre, prodotte da corpi su altri oggetti, è normalmente molto 
simile al problema delle superfici nascoste. In pratica abbiamo delle superfici che na¬ 
scondono altre superfici rispetto alla fonte di luce esattamente come rispetto all'osser¬ 
vatore. Quando si tratta di più di un oggetto, le soluzioni saranno proporzionalmente 
complicate. Nel caso del Ray-Tracing, invece, la loro gestione è un gioco da ragazzi 
e non vale quasi che vi si dedichi un capitolo. 

Il principio viene enunciato molto velocemente: ipotizziamo di avere calcolato il pun¬ 
to di intersezione del raggio luminoso con un oggetto. Formiamo ora un secondo rag¬ 
gio da tale punto alla fonte di luce (o alle fonti di luce). Con tale raggio procederemo 
esattamente come con il raggio dello sguardo. Calcoliamo i punti di intersezione di que¬ 
sta retta con tutti gli altri oggetti. In questa sede è necessario verificare solo se esiste 
almeno un oggetto incontrato dal raggio. Se esiste effettivamente un punto di interse¬ 
zione con un altro oggetto, esso coprirà la fonte di luce; il punto di cui si vuole determi¬ 
nare l’intensità si trova in ombra. 

Esso potrebbe essere illuminato al massimo da altre fonti di luce, infatti qui non si 
è tenuto conto del fatto che un oggetto possa anche riflettere, cioè irradiare sul.punto 
la luce di un'altra fonte di luce. Abbiamo tralasciato per semplicità questa considera¬ 
zione, che tuttavia è tenuta in conto in complicati programmi professionali. 

Questo punto sarebbe quindi normalmente nero. Dal momento però che esiste una 
luminosità di sottofondo, esso riceverà nonostante tutto una determinata intensità. Se 
un punto si trova in ombra rispetto ad una fonte di luce, l'intera espressione per tale 
fonte di luce cui eravamo pervenuti nel capitolo precedente, decade, cioè diventa ze¬ 
ro. Ciò che resta è la luminosità di sottofondo e la luce di un’altra eventuale fonte di luce 
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Il fatto che un oggetto possa schermare altri oggetti da una fonte di luce potrà venire 
utilizzato quando applicheremo, ad uno o più lati della fonte di luce, dei piani non tra¬ 
sparenti, che delimitino il raggio di luce. Con ciò si potrebbero simulare per esempio 
dei fari direzionali, che illuminano solo zone ben precise di una stanza o di un paesaggio. 


6.4. Il programma 


Finalmente siamo al termine della grigia teoria incontrata fin qui. Possiamo finalmen¬ 
te mettere in pratica direttamente sullo schermo quanto abbiamo appreso finora. Sipa¬ 
rio sul famoso programma di Ray-Tracing, naturalmente in C. 


/****** ************* ******* ***** * *****»./ 


/ * * * * / 

/♦* Computer e realtà' **/ 

/*♦ **/ 

/** 3-D-RAY-TRACING **/ 

/♦* 32 Colori 

/** cor» *•/ 

/** diverse fonti Luce, **/ 

/** Riflessione diffusa e *♦/ 

/** a specchio, **/ 

/*♦ Riflessione totale **/ 

/•* e formarione di onde **/ 

/*♦ **/ 

/X* Organizzazione: ♦*/ 

/** Modello volumetrico.* **/ 

/** orientato all'oggetto *♦/ 

/** *♦/ 

/*♦ Axel P1 erige **/ 

/** **/ 

/** **/ 

/♦* **/ 




«include <exec/types.h> 

« i nc 1 ude < i ntu iti on/ i ntu iti or». h> 
« include <1ibraries/mathffp.h> 


/♦ Dichiarazione delle funzioni (solo per Compilatore Aztec): • 
/♦ a scelta anche: «include <functions.h> 

/**«** **♦**#**************♦*******♦♦♦*♦**♦********♦******•••••• 

VOID ClearScreen()? 

VOID CloseO? 

VOID £xit<>s 

struct Message * GetMsgO; 

UWORD GetRGB4< > 5 

LONG XoErrOf 
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voir> 

struct 

struct 

struct 

struct 

VOIE* 


F i 1 eHand 1 e 
Library * 
Screen ♦ 

Window ♦ 


Move(); 

Open(): 

OpenLibrary<): 
OpenScreen<); 
OpenWindow(); 
ReplyMsg ( > : 


VOID 


SetAPen(); 

VOID 


SetRGB4(): 

LONG 


WaitO ; 

LONG 


Write <); 

VOID 


WritePixel(); 

/******** 4 ***************** ****** ********************/ 

Udefine 

WUR2 

EL SPSqrt 

li de fine 

SIN 

SPSin 

«define 

COS 

SPCos 

Udefine 

TAN 

SPTan 

Hdefine 

LOS 

_ SPLog 

Udefine 

EXP 

SPExp 

Udefine 

MODE 

_NEWFILE 1006L 


struct 

struct 

LONG 

LONG 


IntuìtionBase ♦IntuìtionBase; 
GfxBase ♦GfxBase; 

♦MathBase; 

♦MathTransBase; 


/♦ Costanti di hardware: ♦ / 


^ ne 

ANZ_FARBEN 

32 

/♦ 

Numero dei diversi 

colori 

♦/ 

Udefine 

ANZ_EBENEN 

5 

/* 

Numero dei livelli 

di colore 

♦/ 

Udefine 

ANZ_INT 

16 

/* 

Numero livelli di 

ìntensit a 1 

*/ 

Udefine 

X_AUFL 

320 

/* 

Risoluzione x dell 

'Hardware 

♦/ 

Udefine 

y”aufl 

236 

/♦ 

Risoluzione y dell 

'Hardware 

*/ 

Udefine 

g”mod 

NULL 

/♦ 

Modo grafico 


♦ / 

Udefine 

ANZ PAL FAB 

32 

/♦ 

Numero registri di 

tavolozza 

♦/ 

extern ULONG palettetANZ_FARBEN1 

131 ? 





/♦ Iniziaiizzazione di una struttura per un nuovo schermo ♦/ 

/Jet********************* * ********** ********************* * * + / 

struct NewScreen NeuerBi ldschi rrn * 

< 


0 , 

/* 

Coordinata x superiore sinistra 

*/ 


/* 

Angolo (sempre 0) 

*/ 

0 , 

/* 

Coordinata y superiore sinistra 

♦/ 


/♦ 

Angolo 

♦/ 

X_ALIFL, 

/♦ 

Larghezza schermo 

♦/ 

Y_AUFL, 

/* 

Altezza schermo 

♦/ 
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ANZ EBENEN, 

/* 

Numero piani di immagine 

*/ 

32, 

/* 

Colore dei dettagli 

*/ 

1 , 

/* 

Colore delle suptrfici 

*/ 

e MOD, 

/* 

Modo grafico 

♦/ 

CUSTOMSCREEN, 

/* 

Tipo di schermo 

*/ 

NULL, 

/* 

nessun nuovo Font 

♦/ 

"Ray-Tracing-Déffio" , 

/♦ 

Testo nel 1'intest. dello schermo 

*/ 

NULL, 

/* 

non usato» sempre ZERO (NULL) 

♦/ 

NULL, 

/* 

nessun BitMap proprio 

♦/ 


> ; 


/* Inizi alizzazione struttura per nuova finestra: */ 

/ 4444444444 * 4*44 ♦ 4 4 * ♦ *Jc 4 4 44 4 4: 4: 4: ♦ 4 4 4 4 4 - 4 - 4 4 44 4 4 44 4 - 4 4 4 4 / 


st-ruct NewWindow NeuesFenster ■ 
< 


0. 

/* 

Coordinata x ang. sup. sin. 

♦/ 

io. 

/* 

Coordinata y ang. sup. sin. 

*/ 

X_AUFL, 

/* 

Larghezza finestra 

*/ 

Y_AUFL-10, 

/* 

Altezza finestra 

*/ 

32, 

/♦ 

Colore dei dettagli 

*/ 

1, 

/« 

Colore delle superfici 

♦/ 

MOUSEBUTTONS ! 

/♦ 

Segnalazione per tasto del Mouse 

*/ 

RAWKEY, 

/* 

e tasto 

*/ 

ACTIVATE { 

/* 

Selezione elementi e tipi 

*/ 

BORDERLESS: 

'/* 

della finestra: senza bordi 

♦/ 

NOCAREREFRESH ! 

/* 

senza segnalazioni di Refresh 

*/ 

RMBTRAP, 

/* 

senza operazioni di Menu 

♦/ 

NULL, 

/♦ 

senza gadget propri 

*/ 

NULL. 

/* 

CheckMark 

♦/ 

NULL, 

/* 

Testo di intestazione finestra 

*/ 

0, 

/* 

Indirizzo Struttura di schermo 

*/ 


/* 

deve venire iniziaiizzato 

♦/ 


/* 

entro il programma, dopo 

*/ 


/* 

l'apertura di uno 

♦/ 


/* 

schermo 

♦/ 

NULL, 

/* 

Nessuna Finestra di SuperBitrnap 

*/ 

X_AUFL, 

/* 

Larghezza minima 

*/ 

Y_AUFL-10, 

/* 

Altezza minima 

*/ 

X_AUFL, 

/* 

Larghezza massima 

*/ 

y”aufl, 

/* 

Altezza massima 

♦/ 

CUSTOMSCREEN. 

> ; 

/♦ 

Tipo schermo 

•/ 

struct Screen *Bildschirms 




struct Window ♦Fensters 
struct RastPort ♦RastPort; 
struct IntuiMessale ♦Message; 

VOID rnainO 

< 

LONG doprogram(): 
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LONG fehler 


/* Per* le abbrevi azioni dei tipi, ved. */ 
/+ i file di Include di Exec: types.h */ 


/* Apertura delle library di Intuition, Grafiche, e Mathe */ 


printf("Ray-Tracing / C-Demo\n")? 


IntuitionBase = 

(struct IntuìtionBase ♦)ÙpenLibrary<"intuition.1ibrary",0L>: 

if (IntuitionBase = = NULL) fehler * 1? 

else 

< 

GfxBase = 

(struct GfxBase *)OpenLibrary("graphics.1ibrary",OL); 
if (GfxBase == NULL) fehler » 2; 

else 

< 

MathBase = 

(LONG *)OpenLibrary("mathffp.1ibrary", OL) : 
if (MathBase =* NULL) fehler * 3; 

else 

< 

MathTransBase = 

(LONG ♦)OpenLibrary("mathtrans.1ibrary", OL); 
if (MathTransBase *» NULL) 

< 

printf("nessuna Library MathTrans disponibi1 e !\n"); 
fehler = 4; 

> 

else 

< 

/* Apertura schermo: */ 

Bildschirm = 

(struct Screen *)OpenScreen(StNeuerBildschirm); 
if (Bildschirm = = NULL) fehler = 5; 

else 

< 

/* Apertura finestra: */ 

/* Aggiungere indirizzo della struttura di schermo: */ 

NeuesFenster.Screen = Bildschirm: 

Fenster = 

(struct Window * ) OpenWindow (StNeuesFenster ) ; 


if (Fenster *■ NIJLL) 
else 

< 

RastPort = Fenster~>RPort; 


fehler = 6; 


/* RastPort merken 


♦/ 


Move(RastPort, OL, OL)! 
ClearScreen(RastPort): 
fehler = do_program(); 


/♦ Canee1 lezione schermo */ 
/* chiamata del programma */ 
/* vero e proprio */ 


CloseWindcw(Fenster)? 


> 


/♦ Chiusura finestra 


♦/ 
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/* Chiusura schermo 


CloseScreen (Bi 1 «ischi rm) ; 

> 

CloseLibrary(MathTransBase); /* 

> 

CloseLibrary(MathBase); /* 

> 

CloseLibrary(GfxBase); /♦ 

> 

CloseLibrary (Intuìt-ionBase) ; /* 

> 

Exit(fehler); /* 

> 


/************♦*****♦*****/ 

/* Programma Principale */ 

/************************/ 

/* Defines e Macro: */ 

/* Determinazione del massimo/minimo di due valori: */ 
«define MAX<a,b> ( (a) > (b) ? <a> : (b) ) 

«define MIN<a,b> ( (a) < (b) ? (a) : Cb) ) 

/* Determinazione del valore assoluto di uri numero: ♦/ 
«define ABS(a) ( (a) < 0 ? -(a) : (a) ) 

/* Determinazione della Potenza a^b: */ 

/♦ nach p=a^b <=> p=e^(b*In(a)> */ 

«define PGTENZ<a,b> <EXP< <b)*LOG(a> )) 

/♦ Operazioni coi vettori come Macro: */ 

/* a. b, c devono essere nomi di vettori */ 

/* Attribuzione di un vettore: a=b: */ 

«define VEKLET(a.b) < a [ 01 * <b 1 01 ) ; alllMblll); a C21 « <b 121 > * > 

/* Attribuzione di una matrice di colori: a=b */ 

«defi ne COLLET VEKLET 

Somma vettoriale di due vettori c c a ♦ t< */ 


•define VEKADP<c,a,b> <d01 


(aldi) 

♦ 

(blOl ) } \ 

CUI 

= 

(all!) 

♦ 

(bt 11 > s \ 

ct21 

= 

(a 12) ) 


(t*(2) > s > 

/* Sottrazione vettoriale di 

due vettori c«*a-b */ 

Sdefine VEKSUB(c,a,b> <cI01 

X 

(aldi) 

- 

<b(01> ; \ 

dii 

* 

(all!) 

- 

(bill > ; \ 

c (21 


(a 121 ) 

- 

(b 12] ) ; > 

/* Moltiplicazione b=z*a di 

un 

vettore 

per un numero 

Bdefine MULVEK(b,z,a) <b(Cil 

* 

(z) * 

(a 

101);\ 

bill 

s 

(z) * 

(alll ) ;\ 


Chiusura Mathe-Library 
Mathe-Library dose 
Graphics-Lib. dose 
Intuition-Lib. dose 
Uscita con cod. err. 



/* Prodotto scalare a*b di due vettori */ 

«define SKAPRD(a.b) ( (a (01 ) * <b IO] > *\ 

(all))*(bill) +\ 

<a(2))*(b 12) ) ) 

/* Prodotto vettoriale c*axb di due vettori: */ 

«define VEKPRD <c, a, b) <c[0) = (a 111 > * <b 12) > - (a (2) ) * <b(l) ) ; \ 

CUI = (a (2) ) * (b CO) ) - (a 101 ) * <b (2) ) : \ 
c (2) * (atO))* (b 11)> - (a C11)*(bCÙ)>:> 


/* Determinazione dell'equazione di una retta P - PO + s*a */ 
/* nella struttura struct gerade g (strutt. retta) */ 
/* da due pinti b e c: P0=b, a=b-c */ 
/* Con ciò’ la vetta del vettore di direzione */ 
/* e - contemporaneamente punto fisso della retta */ 


«define GET_GERADE (g, b, c> (VEKLET (g.pO.b) : VEKSUB (g. a, b, c) j > 


/* Calcolo di un punto 

/* dalla equazione vettoriale di una retta 
/« P « PO ♦ s*a 


*/ 

*/ 

*/ 


Bdefine GERADEN_PKT<P.PO,s,a) <PC0] 

PCI) 

PC2) 


(POCO)) » (s)*(a CO));\ 
(P0C11) + (s)*(a 11)>;\ 
(PO C2) > * (s)*(aC2))j> 


/* Calcolo della lunghezza di un vettore a: */ 

«define VEK_LAENGE(a) (WUR2EL(SKAPRD(a,a))> 


/* Caratteristiche dell'oggetto (tipi): */ 


8define 

HINTERGRUND 

0 




8define 

LICHTGUELLE 

1 




8define 

KUGEL 

2 




8define 

FLAECHE 

3 




/ * Tipi 

di operazioni della 

luce: 

*/ 


8define 

NORMAL 

0 




8define 

VERSPIEGELT 

1 




ttdefine 

DURCHSICHTIG 

2 




/* Altri parametri: 

*/ 




8define 

REKUR_MAX 

7 

/* 

N.ro Max. di Recursioni 

*/ 

8define 

UNENDLICH 

1.OelO 

/* 

Lontano 

♦/ 

8define 

SCHWAR2 

0. 10 

/* 

Limite della luce 

*/ 

8define 

MINI_S 

0.0001 

/* 

s minimo permesso 

♦/ 




/* 

(quasi 0 a causa della 

♦/ 




/* 

imprecis. di calcolo) 

♦/ 


/* Variabili globali e strutture: •/ 
/••»•»*»************•♦*********•*•*/ 
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/* Punto singolo di un oggetto: */ 


struct punkt 





FLOAT 

POS[31 ? 

/* 

Posizione del Punto 

*/ 


FLOAT 

s; 

/* 

valore s per eguaz. retta 

*/ 


FLOAT 

farbeOl ; 

/* 

Colore 

*/ 


FLOAT 

intens_b131 ? 

/* 

Valore intensità' RGB 

♦/ 


FLOAT 

user0131 ; 

/* 

altri valori 

*/ 


FLOAT 

user 1 ; 




> ; 

FLOAT 

user*2; 




/* 

Pararnetr i 

retta secondo 

P 

= PO ♦ s*a: ♦/ 


struct 9 ®rad 6 





FLOAT 

PO 131 : 

/* 

Punto fisso PO 

*/ 


FLOAT 

a 131 : 

/ + 

Vettore di direzione a 

*/ 


> ; 


/* Parametri del piano secondo P = PO ♦ s*a ♦ t*bx */ 
struct ebene 
< 


FLOAT pO[31 ; /* 

FLOAT a [31; /* 

FLOAT b[31 ; /* 

BOOL n_valid; /* 

/* 

/* 

/♦ 

FLOAT n(31 ; /* 

>? 


Punto fisso PO */ 

Vettore di direzione a */ 

Vettore di direzione b */ 

Flag: TRUE => Vettore */ 

della normale n disponibile */ 

FALSE *> ri non e* ♦/ 

disponìbi1e */ 

Vettore normale del piano */ 





/* Costanti di materiale per un Oggetto: */ 
struct material 
< 


FLOAT 

farbe131 ; 

/♦ 

Colore RGB dell'oggetto 

*/ 

FLOAT 

farbe2I3J; 

/* 

eventuale secondo colore 

*/ 

FLOAT 

fa'rbeS [31 ; 

/* 

eventuale terzo colore 

*/ 



/♦ 

assumono il ruolo delle 

*/ 



/* 

Costanti Koh e Kod 

*/ 

FLOAT 

spieg_ref[3J ; 

/* 

Costante per la riflessione 

*/ 



/* 

specchiante Kr 

*/ 

FLOAT 

fokus_ref[31 ; 

/* 

Messa a fuoco della rifles¬ 

♦/ 



/* 

sione a specchio f 

*/ 

FLOAT 

spiegei_int131 

; /* 

Intensità' della luce 

•/ 



/* 

specchiata 

•/ 

BYTE 

1icht_typj 

/* 

Tipo operazione luce 

•/ 



/* 

=0: Normale 

•/ 



/* 

=1: Totalmente specchiata 

• / 



/* 

*2: trasparente 

•/ 

BYTE 

ober f_typ; 

/* 

Tipo super ficie 

•/ 



/* 

=0: Normale, tinta unita 

♦/ 



/* 

*1: esempio: riquadri 

•/ 



/* 

=2: esempio: con motivi 

♦/ 

uriion 


/* 

Parametro individuale 

♦/ 


< 
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k/m 


♦/ 

*/ 


>5 


struct 

< 

WORD anz_k,anz_in; 
WORD muster1161 ; 

> muster; 
struct 

< 

WORD user 1 ICO ; 
WORD user2I3J; 
WORD user013); 

> ir*t_user; 
struct 

< 

FLOAT user 1 IO); 
FLOAT user213); 
FLOAT user3I3); 

> float_user; 
user ; 


/♦ Numero motivi in direz. 
/* Definizione del motivo 


/* oppure integro 


/* oppure f1oa t 


♦/ 


*/ 


/♦ Sfondo 
struct hi 
< 

WORD 

"infinito" */ 
ntergrund 


V 


typ; 

/* 

Tipo per sfondo: 0 

*/ 

FLOAT 

unendlich? 

/♦ 

Valore per la posizione 

♦/ 

FLOAT 

farbel 13); 

/♦ 

Colore 1 

♦/ 

FLOAT 

> ; 

farbe2I3); 

/* 

Colore 2 

*/ 

/* Fonte 

di luce: */ 




struct 1i 
/ 

chtguel1 e 




\ 

WORD 

typ; 

/♦ 

Tipo per fonte di luce: 1 

♦/ 

FLOAT 

pos13); 

/* 

Posizione della fonte di luce 

*/ 

FLOAT 

radius; 

/* 

Raggio 

♦/ 

FLOAT 

farbe13); 

/* 

Colore della luce 

*/ 

FLOAT 

> ; 

distkonst; 

/♦ 

Costante distanza Kd 

♦/ 

/* Sfera: 

*/ 





struct kugel 


WORD 

typ; 

/* 

Tipo per sfera: 2 

*/ 

FLOAT 

pos[31 ; 

/♦ 

Posizione centro 

♦ / 

FLOAT 

radius; 

/♦ 

Raggio 

*/ 

struct 

material materi 

a 15 

/* Costanti materiale 

*/ 


> ; 


/* Superficie (Parallelogramma): */ 

struct flaeche 
< 


WORD 

typ; 

/* Tipo per superficie: 3 

*/ 

FLOAT 

pi[31,p2t31, 
p3[31 ; 

/♦ tre angoli 

*/ 
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struct ebene ebene; 

/* Parametri del piano con 

*/ 


/* Vettore normale! 

*/ 

struct material materi 

> ; 

al; /* Costanti materiale 

*/ 

/* Osservatore: */ 




struct beobachter 
< 


FLOAT 

POS C3J; 

/* 

Posizione del 1 * osservatore 

*/ 

FLOAT 

blickp(31s 

/* 

Punto al quale sta guardando 

*/ 

FLOAT 

blickvek131 ; 

/* 

alternativa: vettore vista 

*/ 



/* 

se il vettore vista e* 0 

*/ 



/* 

verrà* utilizzato il punto 

♦/ 



/* 

del lo sguardo 

♦/ 

FLOAT 

mattschs 

/* 

Distanza lastra in vetro 

*/ 

FLOAT 

x_punktgrj 

/* 

Larghezza punto 

*/ 

FLOAT 

y_punktgr; 

/* 

Altezza ©unto 

*/ 

LONG 

x_auf1 ; 

/* 

Risoluzione x 

*/ 

LONG 

y_auf1 ; 

/♦ 

Risoluzione y 

*/ 

FLOAT 

x_winkel; 

/* 

Angolo dello sguardo orizz. 

♦/ 

/* Variabili da calcol 

are : 

in seguito: */ 


FLOAT 

blickv 131 ; 

/* 

Vettore sguardo con lunghezza 

*/ 



/* 

Osservatore -> lastra vetro 

♦/ 

FLOAT 

x_step[31; 

/* 

Vettore ampiezza pa%so z 

*/ 

FLOAT 

> ; 

y_stept31; 

/* 

Vettore ampiezza passo y 

*/ 

/* Tutto 

i1 mondo: */ 





struct welt 

< 


WORD 

anzob j; 


/* Numero di tutti gli 

ogg. 

*/ 

WORD 

anz_kugeln; 


/* Numero di tutte le 

sfere 

*/ 

struct 

kugel *kugeln; 


/* Tutte le sfere 


♦/ 

WORD 

anz_f1aech: 


/♦ Numero di tutte le 

super f. 

♦/ 

struct 

flaeche * f1aech: 


/* Tutte superfici 


♦/ 

WORD 

anz 1ichts 


/♦ Numero di tutte le 

luci 

*/ 

struct 

lichtquelle *lic 

ht ; 

/* Tutte le fonti di 1 

uce 

•/ 

WORD 

anz__hi nt en: 


/* Numero degli sfondi 

= 1 

*/ 

struct 

hintergrund *hin 

ter»; 

:/* ampiezza, il Nulla 


♦/ 

FLOAT 

> : 

hint1ichtC 31 : 


/* Luce di sottofondo 


♦/ 

/♦ Variab 

ili Globali: */ 


' 



FLOAT 

sch_p13 3 : 

/♦ 

Intersezione attuale 


• / 

FLOAT 

sch_m. sch_k: 

/* 

Fattore di allungamento piano 

•/ 

WORD 

*z_objekt: 

/* 

Variabile interni, per 

oggetto 

•/ 

WORD 

rekur zaehl; 

/* 

Contatore recursivo 


• f 


/* Definizione codici tasti RAW: 
•define ESC 0x415 
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LONG do_program() 

< 


VOID init_welt(), 

init_farben< >, 
get_konst C ) , 
get_punkt ( ) , 
ray_trace(), 
plot(), 
save iff(); 


USHORT 

taste <); 






USHGRT 

code = 0; 






struct 

punkt 

punkt: 

/♦ 

Punto oggetto 


♦/ 

struct 

gerade 

strabi : 

/* 

Raggio luminoso 


♦/ 

struct 

wel t 

wel t ; 

/♦ 

Struttura mondo 


♦/ 

struct 

béobachter 

beo; 

/* 

Struttura osservatore 


*/ 

LONG 

xa. ya: 


/* 

mezze risoluzioni 


*/ 

RESISTER LONG x. 

y; 

/♦ 

indici di loop 


*/ 

FLOAT 

akt_punkt[31 : 

/* 

Punto sulla lastra in 

vetro 

*/ 

ini t_we 11 ( !<we 11, 

febeo); 

/* 

Inizializz. strutture 

dati 

*/ 

init_farben(); 


/* 

Inizializz. tavolozza 

col. 

*/ 


/* Calcolo ampiezza passi e vettore sguardo: ♦/ 
get_konst(febeo); 


rekur_zaehl = 0; 


/* Contatore recursivo a zero */ 


/* Loop principali: */ 

/********************/ 

for (y = -(ya = beo. y_auf 1/2) : y< = ya fefe code*=ESC: y+O 
< 

for (x * -(xa = beo.x_auf1/2>; x<*xa fefe code!*ESCs x* + ) 

< 

/* Calcolo punto attuale su lastra: ♦/ 
get_punkt. (febeo, x, y. feakt_punkt 103 ) ; 

/* Deterrò inaz. equazione retta del raggio dello sguardo */ 
/* con il punto sulla lastra come punto fisso */ 

6ETGERADE(strabi. akt_punkt, beo.pos); 

punkt.intens_b(01 * /♦ Inizializz. coeff. intensità' */ 

punkt.intens_b[11 * 
punkt.intens_b[21 ■ 1.0: 

punkt.farbeI01 = /* Impost. a zero vai. col. punto */ 

punkt.farbeI11 * 
punkt.farbe(21 = 0.0; 
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/* Qui iniziò il RayTracing (inseguimento raggio) */ 
/* Determinazione del colore del punto: */ 

ray_trace (twelt , Ststrahl, ipunkt) : 

Traccia il punto nel colore determinato: */ 
plot(xa*x, ya-y, Stpunkt); 

/* Controllo tasto */ 
code = teste (); 

} 

> 

/* Attesa di ESC: */ 
while (code != ESC) 

< 

/* Attesa messaggio: */ 

WaitdL << Fenster->UserPort->mp_SigBit>; 
code = teste(I; 

if (code Bs TAS_S) /* con "s**s */ 

save_iff(); /* memorizz.immag. in formato IFF */ 

> 

return ((LONG)TRUE); 


• Controllo tasto: */ 
'-SHORT teste ( ) 


ULONG class; /* Memoria per la struttura */ 
USHORT code, qualifier; /* di Messaggio di Intuition */ 
APTR address; 

SHORT mouse_x, mouse_y; 


COdè = 0? 


/* Elaborazione segnalazioni : */ 

/************ *♦****************/ 
while (code !* ESC && 

(Messale » 

(struct IntuiMessage *)GetMsg(Fenster->UserPort)) 

< 


/* Lettura dati dalla struttura di messaggio: */ 


class 
code 

qualifier 
address 
mouse__x 
mousey 


ReplyMsg(Message); 


Message->Class: 
Message->Code; 
Message->Qualifier: 
Message->1Address : 
Message->MouseX; 
Message->MouseY ; 


/* Restituzione Messaggio */ 


) 


return 


(code) 



/* Memorizzarione intera immagine in formato IFF */ 


/♦ sotto il nome: "Ray__T race. Pie" nella */ 
/* directory attuale ♦/ 
/♦ Attenzione! Un eventuale file già* presente ♦/ 
/♦ e avente lo stesso nome verrà' */ 
/* riscritto)!! 


VOI!' save iff() 


LONG 

i, row; 




UWORD 

anzfarben; 




UWORD 

f arte; 




ULONG 

1aenge; 




LONG 

lor.gwordr 

/♦ 

Memoria dati 

*/ 

WORD 

word; 




BYTE 

byte; 




BYTE 

♦BitPlar.es CSI ; 

/♦ 

Puntat. ad un max. 

di 8 B itplar.es ♦/ 


struct BitMap ♦BitMap: 
struct ColorMap *ColorMap; 
struct FileHandle ♦FileHandle; 

/* Apertura file: */ 

FileHandle = Open("Ray^Trace.pie",(LONG)MODE_NEWFILE); 

ìf (FileHandle = c 0) 

< 

printf("Errore all'apertura file immagine! Numero errore: Xld\n" 

,IoErr()); 

return; 

> 

BitMap = RastPort->BitMap; /* Puntatore alla strutt. di BitMap */ 

/* Determinazione puntatori ai BitPlane: */ 
for (i = 0; i<BitMap->Depth: i♦♦) 

BitPlanesIi1 = (BYTE *)BitMap->PlanesIi1 - BitMap->BytesPerRow; 

ColorMap * Bildschirm->ViewPort.ColorMap; 
anz_farb«n = ColorMap->Count; 


/* IFF-Header : ♦/ 


Write(Fi1eHandle, 

"FORM", 

4L) ; 

/* 

"FORM" come introduzione 

♦/ 

1aenge = 60 ♦ 3*anz_farben ♦ 

BitMap->BytesPerRow * 

BitMap-: 

>Rows ♦ BitMap->Depth: 


Write(FileHandle, 

$<1 aenge. 

4L) : 

/* 

Lunghezza del file 

*/ 

Write(FileHandle» 

"ILBM", 

4L) ; 

/* 

"ILBM" come introduzione 

♦/ 

/♦ Bitmap-Header: 
Write(FileHandle, 

♦/ 

"BMHD", 

4L) t 

/♦ 

"BMHD" come introduzione 

♦/ 

1aenge = 20; 

Urite(FileHandle, 

Sd aenge. 

4L) ! 

/* 

Lunghezza di BMHD 

*/ 

word * BitMap->BytesPerRow 

' * Sj 

/♦Punti per riga 

*/ 
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Wr ite (Fi leHandle, 
Urite(FileHandle, 
longword * byte = 
Write(FileHandle, 
Write(FileHandle, 
Write(FileHandle, 
Write(FileHandle, 
byte = 10: 

Write(FileHandle, 
byte = 11 ? 

Write(FileHandle, 
Write(FileHandle. 
Write(FileHandle. 

/* View-Modes: */ 
Wr* ì te (Fi leHandle. 


&word, 2L); 

&BitMap->Rows, 

0 : 

Mongword, 4L)? 

ItBi tMap->Depth, 

&by te, IL); 
tt longword, 4L) ; 

&byte, IL); 

Scbyte, IL) ; 

S<Mord, 2L) ; 

?<Bi t Map->ftows. 2L> 


"CAMG", 4L); 


2L); /* Punti per 

IL); /* Profondità 

/* Rapporto x-/y 

/* "CAMG" come 
/♦ Lunghezza 


colonna ♦/ 

del Piane */ 

♦ / 


longword * 4L? 

Write(FileHandle, &longword, 4L) 
longword = Bi 1 dschirm->VìewPort. Mode- 
Write(FileHandle, &longword, 4L); 


introduzione •/ 
* / 



/* Color-Map: */ 

Write(FileHandle, "CMAP", 4L); 
longword * anz_farben * 3; 

Wr i te (Fi leHandle, Uongword, 4L); 
/* Memorizzaz. colori: */ 
for (i=0; i<anz_farben? i* + > 

< 

farbe = GetRGB4(ColorMap, i); 
byte « ((farbe & OxfOO) >> 4); 
Write(FileHandle, &byte, IL); 
byte *= (farbe & OxOfO); 

Write(FileHandle, &byte, IL); 
byte s (farbe & OxOOf) << 4; 

Write(FileHandle, &byte, IL); 

> 

/* Dati grafici; */ 

Write(Fi1eHandle, "BODY", 4L); 
laenge * BitMap->BytesPerRow * Bi 
Write(FileHandle, SJaenge, 4L); 


/* "CMAP" come introduzione 
/* Lungh. definizione colore •/ 


/* 

Percentuale 

di 

rosso 

♦ 16 


/* 

Percentuale 

di 

verde 

♦ 16 

•/ 

/* 

Percentua1 e 

di 

blu * 

16 

•/ 

/* 

"BODY" come 

introduz 

ior*e 

• t 


tMap->Rows ♦ BitMap->Depth: 


for (row = 0; row<BitMap->Rows; row + + ) 
for (i=0; i<BitMap->Depth; i + + ) 

Wr ite(FileHandle. BitPlanesIil «-* BitMap->BytesPerRow. 

(LONG)BitMap->BytesPerRow); 

CI ose(FileHandle); /* Chiusura file •/ 


/♦ Calcolo ampiezza passi per lastra in vetro */ 

/* e per il vettore sguardo s 
VOID get_konst(beo) 

struct beobachter ♦beo; /♦ Puntatore alla struttura osservatore •/ 
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FLOAT zahl; 

FLOAT l_xe; 

FLOAT vektor(3); 

RESISTER WORD x_z, z_x, y_z, z_y; 

/* Determinazione vettore sguardo s rispetto alla lastra, */ 
/* secondo s * Jsi/JZ-B! * <Z-B) */ 

/* Memorizzazione di s nella struttura del 1'osservatore ♦/ 

/* 4 * ***** 4 ************* 4 * *********** 4 * * * * * 4 * ******* * 4 * 4 4 ** */ 


/* Determinazione vettore vista allungato. */ 

/* Se già' indicato, riportare: */ 

if (beo->blickvekIO) !! beo->bIickvek l 11 «• beo->blickvek121) 

< 

VEKLET(vektor, beo->blickvek): /* Vettore vista */ 

> 

else 

< 

VEKSUB(vektor, beo->blickp, beo->pos) ; /* Z-B */ 

> 


zahl = beo-.'mattsch / VEK LAENSE ( vektor ) : /* Quoziente */ 
MULVEK<beo->blickv, zahl, vektor): /* s */ 


/* Calcolo dell'ampiezza passi: */ 

/ * *** ***** 4**4 * *■ ********** * ***♦*.**/ 

/* Calcolo della lunghezza del vettore unitario ixe! : + / 

l_xe = 2 * TAN (beo->x_winkél / 2 ) *■ beo->mattsch / 
(beo->;._«uf 1 ♦ beo->x_punktgr ) ; 


/* Calcolo di x_step secondo: */ 

/* x_step = xpg * xe (ved. libro) */ 

/* Calcolo della coordinata y di x_step: ♦/ 

beo->x_stept11 =0; /* poiché' xey * 0 * / 

if (beo->blickvCOI != 0 '! 

beo->blickv[21 ! = 0) /* sx = 0 e sz = 0 ? */ 

< /* No: => Casi 1/2: */ 

if .<beo~>b1ickv101 != 0) /♦ ix<>0 ? */ 

< /* Si: = > Caso 1: */ 

x_z = 0; 

zlx = 2 ; 

> 

else 

< /* No: = > Caso 2: */ 

x_z = 2; 

z_x = 0; 


252 





/* Calcolo delle Coordinate z_x di x_step: */ 

/* sz/sx oppure sx/sz; */ 

zahl = beo->blickvIz_xl / beo->blickvtx_z); 

beo->x_steptz_x) = WURZEL<l_xe*l_xe / (1 + zahl*zahl>> 

/* Calcolo delle coordinate x_z di x_step: */ 

/» -xez*sz/sx bzw. -xex*sx/sz */ 

beo->x_step!x_zl = -beo->x steptz x) * zahl; 

> 

else 

< /* Si «> Caso 3: */ 

beo->x_step121 = 0; 
beo->x_step[0) = l_xe; 


/* Moltiplicazione per la dimensione del punto; */ 
MULVEK(beo->x_step, beo->x_punktgr, beo->x_step); 


/* Calcolo di y_step secondo: */ 

/* y_ s tep = ypg * ye (Ved. libro) */ 

/* Calcolo della coordinata x di y_step: */ 
beo->y_step101 =0; /* we-gen yex = 0 */ 

if (beo->blickv111 •= 0 il 

beo->blickv121 != 0) /* sy=0 e sz=0 ? */ 

< /* No; => Casi 1/2; */ 

if <beo->blickvt11 != 0) /* sy<>0 ? */ 

< /* Si: => Caso 1: «/ 
y z « 1 ; 

=_y - 2; 

> 

else 

< /* No: = > Caso 2: */ 
y_z - 2; 

z_y - 1 : 

> 

/* Calcolo delle coordinate z_y di y_step: »/ 

/* sz/sy oppure sy/sz: */ 

zahl = beo->blickvIz_y1 / beo->bl ickv [y_zl; 

beo->y_steptz_y) » WURZEL<l_xe*1_xe / (1 ♦ zahl*zahl>> 

/* Calcolo delle coordinate y_z di y_step: */ 

/* -yez*sz/sy oppure -yey*sy/sz •/ 

beo->y stepty_z) = -beo->y_steptz_y) * zahl; 

) 

else 

< /« Si => Caso 3: */ 
beo->y_step[21 = 0; 
beo->y_step(0) = l_xe: 





/* moltipiicazione per la grandezza punto: */ 
MULVEK(beo->y_step, beo->y_punktgr, beo->y_step); 


> 


/* Calcolo delle coordinate del */ 

/* punto attuale sulla lastra */ 

VOID get_punkt(beo, x, y, punkt) 

struct beobachter *beo; /* Puntatore struttura osservatore */ 

LONG x, y; /* Coordinate schermo */ 

FLOAT ♦punkt; 


< 

REGISTER WORD xyz; 


/♦ Calcolo secondo: P s B ♦ s ♦ x*xpg*xe ♦ y*ypg*ye ♦/ 
/♦ dove xpg*xe oppure ypg*ye sono ampiezze passo ♦/ 


> 


for (xyz=0; xyzO; xyz + O 

punkttxyzl « beo->blickvIxyzl ♦ beo->posIxyzl ♦ 

x t beo->x_stepIxyzl ♦ y*beo->y__step-Ixyzl: 


/**************»***♦***************/ 

/♦ Routine di Ray-Tracing: ♦/ 
/* Determinazione del colore dell'*/ 
/* oggetto successivo sul raggio */ 
/* dello sguardo ♦/ 
/****♦****************♦************/ 


VOID ray_trace(welt, strabi, punkt) 

struct welt *welt; /* Puntat. struttura mondo ♦/ 
struct gerade ♦strabi; /♦ Puntat. raggio sguardo ♦/ 
struct punkt *punkt; /* Puntat. strutt. punto ♦/ 


WORD schnitt_objs(>; 

VOID hintergrundfarbe(), 

1icbtfarbe(), 
kugelfarbe(), 
f1aechenfarbe(); 

REGISTER WORD obj_typ; /* Tipo di oggetto incontrato 
WORD *objekt: /* Puntat. al primo elemento 

/* di una strutt. di oggetto 


/* Determinazione dell'Intersezione del raggio ♦/ 
/♦ con l'oggetto successivo */ 
obj_typ = 

schnitt_objs (wel t, punkt, strabi, Scob jekt) ; 


♦/ 

•/ 

*/ 


e 
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/♦ Determina colore oggetto: ♦/ 


switcb <obj_typ) 

< 

case HINTERGRUND: 

hintergrundfarbe<welt, punkt); 
break ; 

case LICHTQUELLE: 

1ichtfarbe(welt, objekt, punkt); 
break; 
case KUGELs 


/♦ nessun oggetto incontrato */ 


/♦ stiamo guardando 


/♦ guardiamo una sfera 
kugelfarbe(welt, objekt, strabi, punkt)s 
break; 

case FLAECHE: /♦ guardiamo una superficie 

• flaechenfarbe(welt, objekt, strabi, punkt); 
break ; 


♦/ 


*/ 


/♦ Determinazione del punto di intersezione successivo */ 
/* di una retta (raggio) con tutti gli oggetti: */ 
/♦ Valore di return: tipo di oggetto incontrato ♦/ 
/* in "objekt": Puntatore alla struttura di oggetto: ♦/ 
/♦ dell'oggetto incontrato ♦/ 


WORD schnitt 

objs(welt. 

punkt, strabi, objekt) 


struct 

welt 

♦welt; 

/♦ 

Puntat. 

alla strutt. mondo 

*/ 

struct 

punkt 

♦punkt; 

/♦ 

Puntat. 

alla strutt. punto 

♦/ 

struct 

gerade 

♦strabi ; 

/♦ 

Puntat. 

al raggio 

♦/ 

WORD 

**objekt? 

/♦ 

Puntat. 

al Puntat. al primo 

*/ 




/♦ 

elemento di una strutt. oggetto 

♦/ 


BOOL 


schnitt_kugel_a() , 
scbnitt fiaecb(); 


RESISTER WORD i; 
WORD anzahl; 

FLOAT s__min, i 

WORD ♦obj; 


/* s piu' piccolo ed s 

/* Puntat. al 1 elem. strutt. ogg. 


s min 3 UNENDLICH; 


/♦ Inizializz. il min. 


/♦ Intersezioni con fonti di luce? */ 

/************************♦****♦*♦***/ 

anzahl = welt->anz_licht; /♦ Numero fonti luce •/ 

for <i=0: i<anzabl; i* + ) 

< 

/♦ Calcolo punto intersez. con sfera luminosa 
if (schnitt kugel_a <obj* (WORD *) &wel t->l icbt ( 1 1 • st'-a* 1. t»s) ) 


/♦ L-intersezione esiste: */ 
if (s < s min) 






♦objekt * obj; 


/* nuovo minimo, */ 

/* amot. strutt. ogg. */ 


/♦ Intersezioni con fonti di luce? */ 

anzahl * welt->anz_licht? /* Numero fonti luce */ 

for (i=0: 1 'anzahl; i* + ) 

< 

/* Calcolo punto intersez. con sfera luminosa */ 
if (schnitt kugel_a(obj=(WORD *>&welt->lichtti), strabi, &s) ) 


/* L-intersezione esiste: 
if (s < s min) 


♦/ 


s_m 1 n = 
♦objekt 


ob j : 


/* nuovo minimo */ 

/* annot. strutt. ogg. ♦/ 


/* Numero sfere 


*/ 


> 

/* Intersezioni con sfere? */ 

/***************************/ 
anzahl » welt->anz_kugeln; 
for (i=0: i<anzahl; !♦♦) 

< 

/* Calcolo intersezione con sfera */ 
if (schnitt_kugel_a<obj* (WORD *)?«welt->kugelnti 1, strabi, ?<s)) 

< 

/* Intersezione esiste: */ 
if (s < s min) 


s_min = s; 
♦objekt * obj; 


/* nuovo minimo 
/* annot. strutt. ogg. 


*/ 

*/ 


/* Intersezioni con superfici? */ 
/**********♦*********♦*♦*♦♦*****/ 

anzahl = welt->anz_flaecb; /* Numero superfici */ 

for (i=0; i< anzahl; i + O 

< 

/♦ Calcolo intersezioni con superf. ♦/ 
if (schnitt_flaech(obj-(WORD *)&welt->flaechti], strabi, &s)) 
< 

/* Intersezione esiste: */ 
if (s < s min) 


< 


s_min * s; 
♦objekt s obj; 


/* nuovo minimo 
/* Annot. strutt. 


ogg. 


*/ 

*/ 
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VEKLET (punkt-->pos, sch_p> ; /* Annot. intersez. 
punkt->user1 = sch_m; /* annot. di m e k 
punkt->user2 = sch k; 


*/ 

«/ 


'> 


/* Nessuna intersezione? */ 
if Cs_min *= UNENDLICH) 

/* quindi sfondo: */ 

♦objekt = (WORD *)&walt->hintenIO]s 

/* Trasferimento Tipi oggetti ed s_min: »/ 
punkt->s » s_min; 
return (**objekt>; 


/* Calcolo punto di intersezione: •/ 

/* Sfera: 

f* Determinazione del 1•intersezione di una sfera 
/* con un raggio che arrivi sulla sfera 
/* dall'esterno (Retta) 

Risposta: 1'interseziona esiste/non esiste 
/* oltre la lastra di vetro 


*/ 
*/ 
*/ 
♦/ 
*/ 
♦ / 


DOOL schn 1 1t_kuge1 a(kugel, 
struct kugel *kugel; 
struct gerade '♦strabi; 
FLOAT *s; 


strabi, s) 

/* Puntatore alla strutt. sfera 
/* Puntatore alla retta 
/* Puntatore alla s ricercata 


*/ 

*/ 
• / 


< 


FLOAT 

FLOAT 


v 131 , *Pm, 

a, b, c, D; 


♦bv, *Krn; 


Pm = Ststrahl->p0 C0 1 ; 

/* 

Punto PM e* PO della 

retta 

*/ 

Km = &kugel ->pos (03 ; 

/* 

Punto Km e' il centro sfera 

*/ 

bv = &strahl->a(0); 

/♦ 

bv e' vettore direz. 

retta 

*/ 

VEKSUB(v, Pm, Km); 

/* 

v = Pm-Km 


•/ 

/* Calcolo dei coefficienti 

per la */ 



/* equazione quadrata 

di s: 

*/ 



a = SKAPRD(bv, bv): 

/* 

a * bx~2 t by~2 ♦ bz 

*2 

•/ 

b = 2*SKAPRD(v, bv); 

/* 

b » 2«(vxbx ♦ vyby t 

vzbz) 

• / 

c = SKAPRD(v, v) - 

/* 

c = vx~2 t vy-~2 ♦ vz 

-2 - R'2 

•/ 

kugel->radius • 

kugel 

->radius: 



/* Calcolo della discriminante per s: ♦/ 



D = b*b - 4*a*c; 

/♦ 

D = b^2 - 4 * a * c 


*/ 
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/* Esiste una intersezione? */ 
ìf <D>0> 

< 

/♦ sis ♦/ 

D - WURZELd»; 

♦s * ( -b-I>) / (2*a> ? /* calcolo dell's minore */ 

if (*s < s MINI_S) /* s troppo piccolo ? */ 

*s = < - b ♦ D )/( 2 * a >; /* si=> calcolare un s maggiore */ 

return (BOOL)(*s>MINI_S); /* s ancora troppo piccolo? ♦/ 

) 

else 

( 

return (BOOL)(FALSE); /♦ Nessuna intersez. presente ♦/ 

) 


/* Superficie: ♦/ 
/* Calcolo del punto di intersezione di una */ 
/* retta (raggio) con un parallelogramma ♦/ 
/* (esempio: rettangolo o quadrato) ♦/ 
/* si ricerca s come fattore di allungamento ♦/ 
/* per il vettore di direzione della retta */ 


BOOL schnitt_ f1aech(f1aeche, 
struct fiaeche *f1aeche: 
struct gerade ♦strabi? 

FLOAT *s; 


strabi, s) 
/♦ Puntatore 
/* Puntatore 
/♦ Puntatore 


strutt. superficie 
strutt. retta 
alla s ricercata 


♦/ 

♦/ 

♦/ 


< 

RESISTER WORD i, j? 


FLOAT 

♦n? 

/♦ 

FLOAT 

♦PO? 

/♦ 

FLOAT 

♦v, ♦w: 

/♦ 

FLOAT 

♦Pm. *b: 

/* 

FLOAT 

vektor13J: 

/♦ 

FLOAT 

nenner, q: 



Vettore normale superficie */ 
Punto fisso sulla superficie ♦/ 
Vettori di direzione superf. ♦/ 
Parametro della retta */ 
Parametro intermedio */ 


PO = !< f 1 aeche - >«bene. pO f 01 : 
v = i< f 1 aeche - >ebene. a ( 01 : 
w - 8. f 1 aeche - > ebene. b 101 : 


Pro = fcstrahl ->p0 £03 ; 
b = &strahl->a[0)? 

n = 8<f laeche->ebene. nlOl j 


/♦ In caso di necessita', calcolo vettore normale n: ♦/ 
if (NOT f1aeche->ebene.n_va1id) 

< 

VEKPRD (ri! v, w)i /* n = v X w */ 

fiaeche->ebene.n_vaiid = TRUE: 

> 
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/* Se il nominatore (b*n) e* diverso 
=> 1'intersez. col piano 
irtatore e* uguale a zero 
= > nessuna intersez. col 


/♦ 

Se 

il 

/* 



/* 

Se 

i 1 

/* 



1 f 

( 

( ner 


r.) ) 


0 . 0 ) 


/* Determinaz. intersez. con s: 
VEKSUB(vektor, PO, Pm); 

*s * SKAPRD(vektor, n) / nenner; 


da zero 
esiste 

piano 


*/ 

*/ 

*/ 

*/ 


*/ 


/* Calcolo delle coordinate dei punto: 
GERAPEN_PKT<sch_p, Pm, *s, b>; 


/* Il punto si trova nel parallelogramma? */ 


/* Ricerca coppia di equazioni adeguata 
for <i*2: i> s 0; i--> 

for (j = 0; j<3? 


*/ 


/* vi<>0 und wj*vi-wi*vjOO ? */ 

if < i ! = j VV vii! W (nenner=wl j) *vCi) -wl il *vtj3 
goto welter; 

return (FALSE); /* se errore, indietro! 

welter: /* i e j sono i numeri delle equazioni 


) ) 

♦/ 

*/ 


/♦ Calcolo dei fattori del piano m e k: */ 

sch_m = ( (sch_p(j)-POt j)> * vii] - <q*sch_PtiJ-PO Ii1) * vtj] ) 
/ nenner; 

if <sch_m >=0.0 VV sch_m <= 1.0) 
sch_k = (q - sch__m*wtil) / vtil; 
else 

return (FALSE): /* Intersezione all'esterno ♦/ 

/* del parailelogramma 
if (sch_k >= 0.0 VV sch__k <= 1.0) 

return (BOOL)(*s>MINI_S>5 /* s troppo piccolo? 
else 

return (BOOL)(FALSE); /* Intersezione all'esterno •/ 

/* del parailelogramma 


*/ 

*/ 

•/ 

•/ 


> 

else 

< 

return (BOOL)(FALSE): 

> 


/+ nessuna intersezione 


/♦ Calcolo colori */ 
/**«******+*♦**♦**«/ 

/* Sfondo: */ 
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VOID hintergrundfarbe(welt, punkt) 

struct welt *welt; /♦ Puntatore alla struttuta mondo ♦/ 

struct punkt ♦punkt; /♦ Puntatore alla struttura punto ♦/ 

< 

Struct hintergrund ♦bg: /* Puntatore alla strutt. sfondo ♦/ 

hg = &welt->bintenl01 ; 

/♦ Prelevarvi, colore sfondo: ♦/ 

COLLET (punkt->f arbe, hg-> f arbel *> ; 

> 


/♦ Fonte di luce: ♦/ 


VOID 1icbtfarbe(welt, lq, punkt) 


struct 

wel t 

♦welt; 

/♦ 

Puntat. 

strutt. 

mondo 

♦/ 

struct 

licbtquelle *lq; 

/♦ 

Puntat. 

strutt. 

luce 

♦/ 

struct 

punkt 

♦punkt; 

/♦ 

Puntat. 

strutt. 

punto 

♦/ 


< 

/* Prelevarvi, colore luce: ♦/ 
COLLET(punkt-^farbe, lq->farbe>; 

> 


/♦ Sfera: ♦/ 


VOID kugelfarbe(welt, kugel. strabi, punkt) 


struct 

wel t 

♦welt; 

/♦ 

Puntat. 

strutt. 

mondo 

♦/ 

struct 

kugel 

♦kuge1 ; 

/♦ 

Puntat. 

strutt. 

sfera 

♦/ 

struct 

gerade 

♦strabi ; 

/♦ 

Puntat. 

strutt. 

raggio 

♦/ 

st ruct 

punkt 

♦punkt; 

/♦ 

Puntat. 

strutt. 

punto 

♦/ 


< 

VOID farbinter.s ( ) ; 

FLOAT normaleOl; /♦ Vettore normale sfera ♦/ 

/* Calcolo ulteriore intersezione: ♦/ 

GERADEN_PKT(punkt->pos, strahl->pO, punkt->s, strahl->a): 

/♦ Calcolo vettore normale: */ 

/♦ secondo: n * Intersezione - centro sfera */ 

VEKSUB(normale, punkt->pos, kugel->pos>; 

/♦ Determinazione del colore di base del punto (Koh/Kod): ♦/ 
COLLET(punkt->farbe, kugel->materia1.farbe); 

/* Determinazione intensità* colore: ♦/ 

farbintens(welt, normale, strabi, punkt, fckugel->material); 

> 
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/* Superficie: */ 


VOID flaechenfarbe(welt, 
struct welt *weltj 
struct flaeche * fiasche; 
struct gerade *strabi ? 
struct punkt *punkt; 


flaeche 
/* Puntat 
/* Puritat 
/♦ Puntat 
/* Puntat 


strabi 
strutt 
strutt 
strutt 
strutt 


*/ 
•/ 

raggio */ 
punto */ 


punkt) 
mondo 
superf 


< 

VOID farbintens(): 


RESISTER UWORD zabl1, zabl2? 
FLOAT fzahll, fzahl2; 

struct material ♦mat; 


mat = bf laeche->material: 


/* Determinar, colore di base del punto (Kob/Kod): ♦/ 

switcb <mat->oberf typ> /* a seconda del tipo di superf. */ 

< 

case 0: /* normale, tinta unita: */ 

COLLET (punkt->farbe, mat->farbe); 
break; 

case 1: /* a quadri, bicolore: */ 

/♦ Determinazione del campo: ♦/ 

/* INT(m * anzahl_karos_m) modulo 2) fornisce */ 

/* il tipo di campo (0 o 1) in direzione m ♦/ 

/♦ INJ<k * anzahl_karos_k) modulò 2) fornisce ♦/ 

/* il tipo di campo (0 o 1) in direzione k */ 

zabl1 = 

((ULGNG)(punkt->user1 * mat->user.muster.anz_m 

♦ 0.001) ) y. 2; /* m */ 

zabl2 = 

( (ULONG) (punkt->user2 * mat->user. rnuster. anz_k 

♦ 0.001)) V. 2; /* k ♦/ 

if ( (zabl1 ♦ zabl2) X 2 ) 

< 

COLLET(punkt->farbe, mat->farbe); 

> 

else 

< 

COLLET <punkt->farbe, mat->farbe2); 

> 

break; 

case 2: /♦ Definizione di 16x16 motivi 

/* Determinazione della striscia attuale di bit 
/* zabl = k*anz_muster_k oppure zabl =m*anz_muster 
/* numero strisce * INT(16* (zabl-INT(zabl) )) 

/* m: */ 
zabl1 = 


•/ 
•/ 
m •/ 
•/ 








fzahll = punkt->userl * mat->user.muster.an 2 _m ♦ 0.001: 
zahll = 

fzahll = 16 * (fzahll - (FLOAT)zahll ); 


/♦ k: ♦/ 
zahl2 = 

f zahl2 = punkt->user2 
zahl2 = 

fzahl2 = 16 * (fzahl2 


i»at->user.muster.anz_k ♦ 0.001; 
(FLOAT)zahl2 ); 


/* a seconda del 1-impostazione o no del bit */ 

/* applicare nel motivo del punto il colore 1 o 2 */ 

if ( mat->user.muster.muster[zahll) & (IL << zahl2> ) 

< 

COLLET(punkt->farbe, mat->farbe) ; 

> 

else 

< 

COLLET(punkt->farbe. mat->farbe2): 

> 

break ; 

> 

/* t-et ermi nazione intensità' colore: */ 

farbintens(welt, f1aeche->ebene.n, strabi, punkt, mat); 


> 


/* Legge di riflessione: Calcolo del vettore di riflessione ♦/ 
/♦ dal vettore di incidenza e dalla normale alla superficie */ 


V0II> reflexion(ref 1 vefc. 

einfvek, 

norma le) 


FLOAT 

♦refl_vek; 

/♦ 

Puntat. 

a 1 

vettore 

di rifless. ♦/ 

FLOAT 

♦einf_vek: 

/♦ 

Puntat. 

a 1 

vettore 

di incidenza L ♦/ 

FLOAT 

♦normale: 

/♦ 

Pur.tat. 

al 

vettore 

della normale ♦/ 

< 

FLOAT 

LpI3J: 

/♦ 

Vettore 

incidenza proiettato */ 

FLOAT 

q? 







/* 2 * vettore incidenza proiettato: Lp= 2*(L*n)/n A 2 * n ♦/ 
q = 2 * SKAPRD(einf_vek, normale) / SKAPRD(normale, normale); 
MULVEK(Lp, q, normale); 


/* Determina il vettore di riflessione secondo: R*Lp-L */ 
VEKSUE» (ref l_vek, Lp, einf_vek); 


/**•#♦** ***♦**♦*♦ j**-***** ***************** *♦**♦**♦♦**♦ ♦*♦***/ 

/* Calcolo intensità' di colore di un punto di un oggetto »/ 
/«**#*****♦**♦*♦ * **♦**♦♦♦*************** ************* ******/ 
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VOID farbintens(welt, normale. 


struct welt 
FLOAT 

struct gerade 
struct punkt 
struct materia 


♦welt; 

/* 

♦normale; 

/* 

♦strahl; 

/* 

♦punkt; 

/* 

♦material; 

/* 


strahl 

Puntat. 

Puntat. 

Puntat. 

Puntat. 

Puntat. 


punkt, material) 
struttura mondo 
normale superficie 
strutt. raggio 
strutt. punto 
Strutt. materiale 


< 

VOIL» ray_trace(), 

reflexion <); 

WORD schnitt_ob j s ( ) ; 

FLOAT potenz(> s 

struct gerade refl_strahl; /* Raggio riflessione */ 
struct punkt refl_punkt; /* Punto riflessione */ 
FLOAT farbe13)i 


/♦ Xnizializzazione valore colore */ 
farbeIO 1 » farbetlJ ■ farbeI21 « 0.0; 


/» Elaborazione specchiata re: */ 
/*****»*»*****♦«♦**♦♦*♦*♦**♦***/ 


if (material->1icht_typ “ VERSPIEGELT) 

< 

/* Oggetto specchiato */ 


/* Intensità* luce specchiata 

< 

RESISTER WORD rgb; 


for <rgb=0; rgb<3; rgb-n-1 
( 

refl_punkt.intens_btrgbl * 

Punkt-> intens_btrgbl * mater ia 1 -^-spiegai_int I 

> 

> 


/♦ Criterio di interruzione: la luce specchiata e' 
/* scura oppure: e' stato raggiunto il numero max. 
/* di recursioni 

if ( (refl_punkt.intens_btù] > SCHWARZ lì 
refl_punkt.intens_bIi1 > SCHWARZ '! 

refi punkt. intens_b 12) > SCHWARZ ) 
rekur.zaehl < REKUR_MAX > 

/* La luce e* ancora sufficientemente chiara 
/♦ Recursione! Il raggio di riflessione viene 
/♦ ancora seguito. Si cerca il colore! 


/* Calcola raggio 
ref l_strahl. a CO) 
refl_strahl.all) 


di riflessione: 
-strahl->a IO): 
-strahl->aI1); 


*/ 

/♦ Raggio incidente 
/* da ruotare 





'*efl_strahl.a£2J = -strabi->a £23 ; 

reflexion(refi_strahi.a, refl_strahl.a, normale); 

/* Punto fisso del nuovo raggio = intersezione: */ 
VEKLET(refl_strahl.pO, punkt->POs); 

/* Incremento contatore recursioni: */ 
rekur_zaehl♦ ♦; 

/* Eccola: ♦/ 

ray_trace(welt, 8«ref l_strahl, &ref l_punkt> ; 

/* Decremento contatore recursioni: */ 
rekur_zaehl; 


/♦ Trasferimento colore determinato */ 

/* tenendo conto del 1'intensita* di specchi atura: */ 

< 

REGISTER WORD rgb; 


> 


> 


> 


for <rgb=0; rgbO; rgb++) 

farbelrgbl = refl_punkt.farbeIrgbl ♦ 

mater ial->spiegel__int [rgbl ; 


/* Riflessione della luce diffusa e a specchio: */ 
/********************************** 

< /* Nuovo inizio blocco con alcune variabili locali: */ 

RESISTER WORD rgb, lq; 

struct gerade 1icht_strahl; /* Raggio verso la luce */ 
struct 1ichtqueIle *licht; /♦ Puntat.str. fonte luce */ 
FLOAT cos_a, cos_b; 

FLOAT nenner, potenz; 

WORD *z_objekt; 

/* Punto fisso dei raggi della luce e riflessi: */ 

VEKLET ( 1 icht__strahl. pO, punkt->pos) : 

VEKLET(refl_strahl.pO, punkt->pos); 

/* Elaborazione di tutte le fonti di luce: */ 
for (lq=0: lq < welt->anz licht; lq+ + ) 

< 

/* Indirizzo strutta attuale fonte luce */ 
licht = &wel t->l icht ( lql ; 

/* Determina intersezione raggio->Fonte di luce: */ 

/♦ PO=Intersezione, a*(fonte luce - intersezione) */ 
VEKSUB(1icht_strahl.a, licht->pos, punkt->pos); 

/* Esiste intersezione davanti alla fonte di luce? */ 
schmtt_objs(welt, Irefl_punkt, &1icht_strabi, &z_objekt) 
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(WORD *)licht) 


if <z_objekt = = 

< 

/* no: 1*oggetto e' illuminato dalla font* luca */ 
/* => calcolare 1'intensita' luminosa: */ 

/* Determina il vettore di riflessione luce R: */ 
reflexion(refl_strabl.a, 1icbt_strabl.a, normale)? 


/* Calcola i valori dei colori in RGB del punto */ 


•/* 

per la fonte 

di luce: 

*/ 

/* 

Formula della 

i intensità' 

*/ 

/* 

intens = 


*/ 

/♦ 

Iq * !Kod*cos(a) + Kr»cos (b)-'f 1 / <d * Kd> 

*/ 

/* 

dove: 


*/ 

/* 

Iq 

1icht->farbet1 

*/ 

/* 

Kod 

punkt->farbe[1 

*/ 

/* 

cos(a) = 

n'*L' = n«L/(ini * ÌL!> 

♦/ 

/* 

n = 

normale 

♦/ 

/* 

L 

1icht_strahl.a 

*/ 

/* 

Kr 

material->spieg_ref11 

*/ 

/* 

cos(b) = 

r-*S' « r*s/<:rì«!s:) 

*/ 

/* 

R 

refl_strahl. a 

*/ 

/* 

S 

- strahl->a 

♦/ 

/* 

f 

material-> fokus_ref11 

*/ 

/♦ 

d = 

VEK_LAENGE(1icht_strahl. a) 

*/ 

/* 

Kd 

licht->dist konst 

*/ 


nenner = VEK_LAENGE(1icht_strahl. a) * 
1icht->dist_konst; 


/* Calcolo del Coseno: */ 

cos_a = SKAPRD(normale, normale) * 

SKAPRD(1icbt_strahl.a, 1icht.strahl.a); 
cos_a * SKAPRD(normale, 1icht_strahl.a) / 

WUR2EL(cos_a); 

cos_b = SKAPRD(refl_strabl.a» refl_strahl.a) * 
SKAPRD(-strabi->a, -strabi->a): 
cos_b = SKAPRD(refi_strah1.a, -strabi->a) / 

WURZEL(cos_b): 

for (rgb=0; rgbO: rgb+O 

< 

potenz = POTENZ(cos_b, material->fokus_ref Ir-gt») ) ; 
farbelrgbl «■* 1icbt->farbeIrgb) * 

( punkt->farbeIrgb) * cos_a ♦ 

material->spieg_refIrgb] * potenz 
) / nenner: 

> /* for rgb */ 

> /♦ if */ 

/♦ for lq ♦/ 
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/* Fresa in considerazione della luminosità* di */ 

/* sottofondo secondo: X « Ih*Koh ♦ altre intensità' */ 
for (rgb=0: rgb<3; r? b+ + ) 

< 

punkt->farbetrgb) = 

farbelrgb] ♦ welt->hintlicht(rgbl * punkt->farbe(rgb); 

> 

> /* Fine blocco */ 

> 

/* Tavolozza colori iniziaiizzata: */ 

VGID init_farben<) 

< 

RESISTER UWORD reg, rgb; 

for < reg=0: reg<ANZ_PAL_FAB; regni 

< 

/* Impostazione tavolozza colori: */ 

SetRGB4 (UBi ldschirm->ViewPort, (LONG) reg, 
palettelregl ICO , 
paiette[regi(11, 
palette(regi 121 I: 

/* Trasformazione di valori Hardware di Intensità' */ 

/* in valori interni al programma (da 0 - 2"16): */ 

for <rgb = 0: rgbOj rgb + + ) 

< 

if (G_MOI> J< EXTRA_HALFBRITE> 

< 

/* i registri colore superiori hanno mezza intensità': */ 
/* calcolare l'intero della mezza intensità': */ 

palette(reg+321(rgbl = 

((palettelreglCrgbl & OxfffffffeL) << 15 ) / ANZ INT; 

> 

palettelregl(rgbl = (palettelregl(rgbl << 16) / ANZ INT; 

> 

> 

> 


/* Traccia un punto sullo schermo: */ 
/* l'intensità' RGB viene trasferita, */ 
/* viene ricercata la tavolozza colori »/ 
/* piu* vicina al valore RGB */ 


VOID plotlx, y, punkt) 

LONG x, y: /* Coordinate schermo del punto */ 

struct punkt *punkt: /* Puntatore struttura di punto */ 

< 

WORD zufa 11(1; 
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RESISTER UWORD reg, rgb? 

UWORD reg_min=0, zweit_reg_min=ù; 

ULONG farbe[31 ; 

ULONG diff_sum_min = 0x7fffffff, /* valore max.poss. */ 

zwei t_surn_min = 0x7fffffff, 
diffl_sum, 
dif f2_sum; 

ULONG diff max min * 0x7fffffff, 

zweit_max_min = 0x7fffffff, 
diffl_max, 
diff2_max; 

UWORD reg2: 

LONG diffj 


/* Fissazione colore punto fra. 1 e 2 */ 

/* e trasformazione in formato tavolozza */ 

for <rgb*0j rgb<3; rgb**) 

< 

Punkt-> farbe(rgb3 = 

MAX(0.0, punkt->farbe[rgb1>; 
punkt->farte[rgb) 3 

MIN<1.0, punkt->farbe(rgb))j 
farbe(rgb) = (ULONG)(punkt->farbefrgb) * 65536); 

> 


/* Ricerca del registro di tavolozza adeguato */ 

/* per EXTRA_HALFBRITE: doppio gruppo colori */ 
for (reg=0: reg<ANZ_FARBEN; reg*+) 

< 

diffl_sum = 0; 
diff2_sum = 0; 
diff1_max = 0; 
diff2_max = 0; 


for (rgb=0s rgb<3; rgb*** 1 ) 

< 

/* Somma delle differenze delle intensità' RGB: */ 

diff s palette(reg)(rgb) - farbelrgb): 
diffl_sum ♦= diff * ABS(diff); 


/* e differenza massima: ♦/ 
diffl_max * MAX(diffl_max, diff); 


diff2_sum 
diff2_max 
reg2 


diffl_sum; 
diffl_max; 
reg; 


M 
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Calcolo del minimo: */ 
if (diff_sum_min > diffl_sum M 

(diff_sum_mi n == diffl_sum ZtZt diff_max_min > diffl_max) ) 

diff2_sum = diff_sum_min; 
diff2_max = diff_max_min; 
reg2 = reg_min; 

^^_surn_min = diffl_sum; /* Nuovo minimo */ 

diff_max_min = diffl_max; 

reg_min B reg: /♦ Annotare il registro */ 


/* Calcolo del penultimo minimo: */ 
if ( (zweit_sum_min > diff2_sum J! 

(zweit_sum_min = = diff2_sum && zweit_max_min > di f f2_rnax) ) 

ZtZf. diff2__sum > diff sum min ) 

< 

zweit_sum_min * diff2_sum; /♦ Nuovo minimo */ 

zweit_max - min = diff2_max; 

zweit_reg_min = reg2: /* Annotare il registro ♦/ 

> 

> 


/♦ Selezionare la piu' piccola somma e la penultima */ 

/* casualmente con verosimiliianza ponderata come fonte */ 
/* per il registro di colori valido di volta in volta */ 
if < (FLOAT)zufal 1(> ♦ (zweit_sum_min << 8) / 

(zwei t._sum_min«-di f f_sum_min) * 1.20 > Oxff ) 

< 

/* Impostazione colore: ♦/ 

SetAPen (RastPort-, (LONG) reg_min) ; 

> 

else 

< 

/* Impostazione colore: */ 

SetAPen(RastPort(LONG)zweit_reg_min); 

> 

/* Tracciatura dei punti: */ 

/****♦*****♦*♦♦*♦♦**-•♦♦*♦******/ 

WritePixel(RastPort, x, y); 

************** * * * * ► * * / 


/* Determinazione di un numero intero casuale */ 
/* fra 0 e flOO */ 


WORD zuf al IO 

< 

static LONG zuf s 100001: 


zuf ♦= 125; 
zuf X= 2796203? 

return (WORD)( (zuf << 8)/2796203); 
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» i rie 1 ude 
« 1 rie 1 ude 
I» include 


<exec/types.h> 

< 1 ntu iti on/ i ntui t i ori. h> 
<1ibraries/mathffp.h> 


«define ANZ FARBEN 32 


/♦ Dichiarazioni di funzioni (solo per Compilatore Aztec): */ 


/♦ a scelta anche 

VOID 
VOID 

struct Message 
VOID 

struct Library 
struct Screen * 
struct Mindow ♦ 

VOID 
VOID 
VOID 
LONG 
VOID 

/ * * * * * * * 4 : * * * * «. * 4 * * 4 « * * * * * « 4 * ♦ ♦ * * 4 * * * * * « * * * * * * : 4 


«include <functions.h> 

C1earScreen() 

ExitO ; 

GetMsg(); 

Move()? 

OpenLibrary ( ); 
ÙpenScreen(); 

OperiW i ndow ( ) ; 

ReplyMsg()j 
SetAPen(); 

SetRGB4(); 

Wa it()s 
WritePixel<); 


*/ 

* * * * * * * / 


/* Colori da tavolozza: */ 
ULONG paletteIANZ_FARBENJ[31 = 

< 


> ; 


< 1, 

1 , 

1>, 

< 15, 

13, 

13> 

<15, 

15, 

15; , 

<15, 

10, 

10> 

< 13, 

13, 

13>, 

<15, 

4, 

4 > 

<11. 

1 1 , 

11>, 

<15, 

0, 

0> 

< 9, 

9. 

9 >, 

<14, 

0, 

0> 

< 0, 

0, 

4 > , 

<13, 

0. 

0> 

< 7. 

7. 

7>, 

<11, 

0, 

0> 

< 5, 

5, 

5> , 

< 9, 

0, 

0} 

< 4, 

4, 

4> , 

< 7, 

0, 

0 > 

< 3, 

3, 

3>, 

< 5, 

0, 

o: 

< 2, 

2, 

2> , 

< 4, 

0, 

o> 

<13, 

13, 

15>, 

< 0, 

0, 

13> 

<10, 

10, 

15) , 

< 0, 

0, 

11 > 

< 6, 

6 . 

15>, 

< 0, 

0, 

9> 

< 0, 

0, 

15>, 

< 0, 

0, 

7> 

< 0, 

0, 

14> , 

< 0, 

0, 

5> 

/* iniz 

ìalizzare 

solo 


pr imi 


32 Colori +/ 


«define WURZEL 
«define SIN 
«define COS 
«defi ne TAN 
«define LOG 
«define EXP 


SPSqrt 

SPSin 

SPCos 

SPTan 

SPLog 

SPExp 









/*****************■/ 

/* Hauptprogramm ♦/ 

/♦a**»****»*******/ 

/* Definizioni e macro: */ 

/* Determinazione del massimo/minimo di due valori: */ 
Kdefine MAX(a,b> < (a) > (b) ? (a) : (b) ) 

Odefine MIN(a.b) ( (a) < <b> ? (a) : (b) > 

/* Determinazione del valore assoluto di un numero: */ 
«define ABS(a) ( (a) < 0 ? -(a) : (a) ) 

/* Determinazione della potenza a~b: */ 

/* nach p=a~b < = > p=e'~ <b* In (a! 1 */ 

«define POTENZ(a,bl (EXP( (bl*LCK3<a> >1 


/* Operazioni vettoriali come macro: */ 

/* a. b, c devono essere nomi vettori */ 

/* Attribuzione di un vettore a=b: */ 

Kdefine VEKLET(a.b) <atOJ«(b(01>p a(l)«(blljl; a 121 »(b121>p> 

/* Attribuzione di una matrice colori a*b */ 

«define COLLET VEKLET 

/* Somma vettoriale c^a+b di due vettori */ 

Kdefine VEKADD(c,a,bl <c[01 = (alOl) ♦ (blOJ)sN 

et 11 - (alili ♦ (bill 1 ;\ 

c (21 = (a (211 + (b(21> ? > 

/* Sottrazione vettoriale c=a-b di due vettori */ 

Rdefine VEKSUB<c,a,bl <ct01 = (atOll - <btùll:\ 

ctll = (adii - <b 111 ) ; \ 
c 121 = (a 121 1 - (b(21 1 ; > 

/* Moltiplicazione b=z*a di un vettore per un numero */ 
Kdefine MULVEK(b,z,a 1 <b(01 = (zi ♦ (alOllpN 

bill = (zi * (a 1111p\ 
b (21 = (zi • (a (21 > ; > 

/* Prodotto scalare a*b di due vettori */ 

«define SKAPRD(a,b) ( (a(011 *(b(011 *\ 

(alili*(b(111 e\ 

(a (211 * (b (211 1 

/* Prodotto vettoriale c=axb di due vettori */ 

Kdefine VEKPRDCc,a,bl <c(01 * (a1111 *<b(21) - (a(211 *(b(111 ;\ 

ctll * (a(211 *(b[ù1) - (a COI)*(b(21> p\ 
c (21 = (atOl >*(bill 1 - (a(11)*(b(011 ;> 

/* Determinazione dell'equazione di una retta P = PO ♦ s*a */ 
/• nella struttura struct gerade g (strutt retta! */ 
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> 




/* da due punti b e c: PO*b, a = b-c 

/* Con ciò' la vetta del vettore di direzione 

/* e’ contemporaneamente punto fisso della retta 


*/ 

*/ 

*/ 


«define GET_GERADE (g, b, c) CVEKLET(g.pO,b)j VEKSUB ( 9 . a, b. c) ; > 


/* Calcolo di un punto dalla equazione */ 
/♦ vettoriale di una retta */ 
/* P * PO ♦ s*a */ 


«define GERADEN 


PKT(P,P0,s,a) 


<P(0J = (POTO)) 
PIU * (PO 111) 
P12) = (PO 121 ) 


♦ (s) ♦ (a IO J ) ; \ 

♦ (s)*(a[l))j\ 

♦ (s) * (a 12) ) ; > 


/* Calcolo della lunghezza di un vettore a: */ 
«define VEK_LAENGE(a) (WUR2EL(SKAPRD(a,a))) 


/* Caratteristiche oggetto (Tipi): */ 
«define HINTERGRUND 0 
«define LICHTGUELLE 1 
«define KUGEL 2 

«define FLAECHE 3 


/* Operazioni per la luce: 
«define NORMAL 0 

«define VERSPIEGELT 1 
«define DURCHSICHTIG 2 


♦/ 


/* altri 

parametri: 

*/ 


«define 

UNENPLICH 

1.OelO 

/* 

«define 

SCHWARZ 

0. 05 

/* 

«define 

MINI_S 

0.0001 

/* 




/* 




/* 


Lontano ♦/ 
Limiti luce */ 
s minimo permesso */ 
(quasi 0 a causa della ♦/ 


imprecisione di calcolo) */ 


/* Variabili e strutture globali: ♦/ 
/«*************♦♦*♦♦♦*******♦*♦♦♦**/ 


/* Singolo punto dell'oggetto: */ 
struct punkt 
< 


FLOAT 

pos 13)s 

/* 

Posizione del punto 

FLOAT 

ss 

/* 

Valore s per eq. retta 

FLOAT 

farbe13J s 

/* 

Colore 

FLOAT 

iritens_b 13) 

; /* 

Intensità' RGB 

FLOAT 

userO133 ; 

/* 

altri valori 

FLOAT 

userls 



FLOAT 

user2; 




*/ 

*/ 

*/ 

*/ 

*/ 


> 





PO + s*a : */ 


/* 

Parametro retta secondo 

struct- gerade 


< 

FLOAT 

P0C3); 

/* 


FLCiAT 

a (3) ; 

/* 

>; 




/» 

Parametro piano secondo 

struct ebene 


< 

FLOAT 

PO13]; 

/* 


FLOAT 

a 13] ; 

/* 


FLOAT 

b [3] s 

/* 


BOOL 

n_valids 

/* 




/* 




/* 




/* 


FLOAT 

n [ 3 ) ; 

/* 

> ; 


- 


/* 

Costanti 

materiale per i 

struct material 


< 

FLOAT 

farbe C31; 



FLOAT 

farbe2[31 ; 



FLOAT 

farbe3[31 ; 



FLOAT 

spieg_ref(31 

J 


FLOAT 

fokus_ref[33 

; 


FLOAT 

spiegel_int13] 


*/ 

*/ 


♦ t*b: ♦/ 


TRUE 


azione b 
*> Vettore 


*/ 

*/ 

*/ 

*/ 


normale n presente */ 


FALSE => n non 
e' presente 
/* Vettore normale piano 


un oggetto: */ 


*/ 

♦/ 

*/ 


BYTE 


BYTE 


un 1 on 
< 


licht typ: 


ober f_typ; 


/* Colore RGB di un oggetto 
/* eventuale secondo colore 
/* eventuale terzo colore 
/* assumono il ruolo di 
/* costanti Koh e Kod 
/* Costanti per la riflessione 
/* a specchio Kr 
/* Messa a fuoco della rifles- 
/* sione a specchio f 
/♦ Intensità* della luce 
/* specchiata 
/* Tipo operazione luce 
0: Normale 

1: Totalmente specchiata 
/* =2: trasparente 
/* Tipo superficie 

*0: Normale, tinta unita 
■1: esempio a riquadri 


/♦ 

/* 


/* 

/* 


struct 

< 

WORD anz_k,anz_m: 

WORD musterll61; 

> muster; 
struct 
< 

WORD user 1131; 

WORD user2131; 

WORD user3131; 


/* Parametri individuali 


/* Numero motivi in direz. k/m 


/♦ Definizione motivo 


/* oppure intero 


*/ 
*/ 
♦/ 
♦/ 
♦ / 
*/ 
*/ 
*/ 
*/ 
*/ 
♦/ 
*/ 
*/ 
♦/ 
♦/ 
*/ 
♦/ 
♦/ 
*/ 


*/ 

♦/ 


*/ 
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> int_user; 

.struct 

< /* oppure di tipo Flcat 

FLOAT user 113); 

FLOAT user2I3J; 

FLOAT user3133; 

) float_user; 

> user ; 

> ; 


/* Sfondo al 1infinito" */ 
struct hintergrund 

< 


WORD 

typ; 

/* 

Tif-o per sfondo: 0 

*/ 

FLOAT 

unendlich; 

/* 

Valore 

per posizione 

*/ 

FLOAT 

farte113); 

/* 

Colore 

1 

*/ 

FLOAT 

>; 

farbe2)3); 

/ + 

Colore 

2 

*/ 

/* Fonte di 

luce: */ 






struct 1ìchtqueIle 


WORD 

typ; 

/* 

Tipo per fonte luce: 1 

*/ 

FLOAT 

pos 131 ; 

/* 

Posiz. fonte di luce 

*/ 

FLOAT 

radius: 

/* 

Raggio 

*/ 

FLOAT 

farbe [31 ; 

/* 

Colore della luce 

*/ 

FLOAT 

> ; 

dist_konst; 

/* 

Costante distanza Kd 

♦/ 

/* Sfera: 

*/ 





struct kugel 


WORD 

typ; 

/♦ 

Tipo per sfera: 2 

♦/ 

FLOAT 

pos13); 

/♦ 

Posizione centro 

*/ 

FLOAT 

radius: 

/* 

Raggio 

*/ 

struct 

material 

material 

; /* Costanti mater. 

*/ 


>; 

/* Superficie (Parallelogramma): */ 
struct fiacche 

WORD typ: /* Tipo per superf.: 3 */ 

FLOAT pi 131,p2(31, /* tre punti nagolan */ 

p3(31 ; 

struct ebene ebene: /* Parametri piani con */ 

/* vettore della normale */ 
struct material material; /♦ Costanti mater. ♦/ 

> s 

/ 4 Osservatore: */ 
struct beobachter 
( 

FLOAT posl31; /* Posizione osservatore 
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J 




V 


FLOAT 

blickp131 : /* 

Punto 

al quale sta guardando 

*/ 

FLOAT 

blickvek131 :/* 

In alternativa: vettore vista 



/* 

se i 1 

vettore vista e' = 0, 

*/ 


/* 

verrà' 

utilizzato il punto 

*/ 


/♦ 

cui si 

sta guardando 

♦/ 

FLOAT 

mattsch: /* 

Distanza rispetto lastra vetro 

♦/ 

FLOAT 

x_punktgrj /* 

Larghezza punto 

*/ 

FLOAT 

y_punktgr; /* 

Altezz 

:a punto 

*/ 

LONG 

x_aufls /* 

Risoluzione x 

*/ 

LONG 

y“aufl; /* 

Risoluzione y 

*/ 

FLOAT 

x_winkel; /* 

Angolo vista orizzontale 

♦/ 

/* var 

labili da calcolai 

-e in seguito: */ 


FLOAT 

blickv131 ; /• 

Vettore sguardo con lunghezza 

♦/ 


/♦ 

Osservatore -> lastra vetro 

*/ 

FLOAT 

x_step131 ; /* 

Vettore ampiezza passo x 

*/ 

FLOAT 

> ; 

y_stepI31? /* 

Vettore ampiezza passo y 

*/ 

/* Tutto 

i1 mondo: */ 




struct we 
/ 

lt ' 




\ 

WORD 

arc^ob j : 

/* 

Numero di tutti gli ogg. 

*/ 

WORD 

anz_kugeln; 

/* 

Numero di tutte le sfere 

*/ 

struct 

kugel *kugeln; 

/* 

Tutte le sfere 

*/ 

WORD 

anz_f1aech; 

/* 

Numero di tutte le superf. 

♦/ 

struct 

f1aéche *f1aech; 

/* 

Tutte le superfici 

*/ 

WORD 

anz licht? 

/* 

Numero di tutte le luci 

♦/ 

struct 

1ichtqueIle «licht; /* 

Tutte le fonti di luce 

*/ 

WORD 

anz hinteri? 

/* 

Numero degli sfondi = 1 

*/ 

struct 

hintergrund ♦hinten:/* 

ampiezza, il Nulla 

*/ 

FLOAT 

>? 

hir.t licht <31 ; 

/* 

Il luminar, di sottof. Ih 

♦/ 

/* * * * **♦♦♦♦*****#****/ 

/* Dati piotali per il mondo */ 

/1tt*ttt*»**»i«**4»**«********/ 



/* Mondo 

circostante: */ 




struct new_we1t 

/ 




FLOAT 

hintlicht131i 




> new_welt = < <0.32, 0.32 

, 0.32) 

> j 


/* Osservatore: */ 
struct beobachter new_beo 




<21.0, 

24.0.-29.0>, 

/* Posizione 

♦/ 

< 0.0, 

0.0. 0.0Ì, 

/* Punto cui sta guardando 

*/ 

<-1.3. 

-1.5. 3.0>, 

/* alternativa: vettore vista 

*/ 

1.0, 


/* Dis 

tari, rispetto lastra vetro 

♦/ 

1.00, 

1.00. 

/* Larghezza-altezza punto 

♦/ 

319L. 

245L, 

/* Risoluzione x-/y 

♦/ 

55.0. 


/* Angolo visuale orizz. (Gradi) 

*/ 
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<0.0, 0.0, 0.0>, /* ai valori inizi 

<0.0, 0.0. O.Oi, 

<0.0, 0.0, 0. 0 ì 


/♦ Sfondo: ♦/ 

structr hintergrund new_hint 
< 


HINTERGRUND. 


/* 

Tipo 

*/ 

UNENDLICH, 


/♦ 

“Posizione" 

•/ 

10.00. 0.00, 

0 .so >, 

/♦ 

Colore 1 

*/ 

<0.00. 0.00. 

0 . 00> 

/* 

Colore 2 

*/ 


> t 

/* Fonti di luce: */ 
struct lichtquelle new lichttl = 
< 


< 


LICHTQUELLE, 

/* 

T ipo 

*/ 

<23.5,20.0, 20. 0>, 

/* 

Posizione 

*/ 

1.0, 

/* 

Raggio 

*/ 

<1.00, 1.00, 1.00>, 

/* 

Colore 

*/ 

0. 18 

>, 

/* 

Kd 

*/ 

< 

LICHTQUELLE, 

/♦ 

T ipo 

♦/ 

o 

1 

O 

o 

-Sf' 

/♦ 

Posizione 

*/ 

1.0, 

/* 

Raggio 

*/ 

<1.00, 1.00, 1.00>, 

/♦ 

Colore 

*/ 

1.9 

/♦ 

Kd 

*/ 


> 


> ; 

/* Oggetti: */ 

/♦ 1. Sfere: */ 
struct kugel new_kugelnN = 
< 

< 


KUGEL, 



/♦ 

Tipo 

♦/ 

< 6.0, 

6.5, 

3. 0 > , 

/* 

Posizione 

*/ 

3.0, 



/* 

Raggio 

*/ 

< /♦ Waterìal : 

: ♦/ 




<0.00, 

0. 00, 

0.00>, 

/* 

Colore 

*/ 

<0.00, 

0.00, 

0.00>, 

/* 

Colore 2 

*/ 

<0.00, 

0. 00, 

0.00>, 

/* 

Colore 3 

♦/ 

<0.00, 

0.00, 

0.00>, 

/* 

Kr 

♦/ 

< 5.0, 

5.0, 

5. 0>, 

/* 

Fuoco f 

*/ 

<0.85, 

0.85, 

0.85>, 

/* 

Int. spece. 

*/ 

VERSPIEGELT, 


/* 

0per. luce 

♦/ 

0 

/* User 

*/ 


/* 

Tipo superf. 

♦/ 


> 








< 


KUGEL, 


/* 

T ipo 

*/ 

< 0.0, 13.0, 

A 

o 

o 

/* 

Posisione 

*/ 

5.0, 

< /* Materiale: */ 

/* 

Raggio 

*/ 

<0.00, 0.00, 

0.00>, 

/* 

Colore 

*/ 

<0.00, 0.00, 

o.oo>. 

/* 

Colore 2 

*/ 

<0.00, 0.00, 

0.00>, 

/* 

Colore 3 

*/ 

<0.00, 0.00, 

0.00>, 

/* 

Kr 

*/ 

< 5.0, 5.0, 

5. 0> . 

/* 

Fuoco f 

*/ 

<0.85, 0.85, 

0.85>, 

/* 

Int. speco. 

*/ 

VERSPIEGELT, 


/♦ 

Oper. luce 

*/ 

0 

/* User */ 


/* 

tipo superf. 

*/ 


> 

>. 

< 


KUGEL. 

<15.0, 2.0, -2.5.V, 

2 . 0 , 

< /* Materiale: */ 


<1.00, 

0. 00, 

0. 00> 

<0.00, 

0. 00, 

0.00) 

<0. 00, 

0. 00, 

0. 00> 

<8. 00, 

9. 00, 

9. 00> 

<60.0, 

60.0, 

O 

o 
v ù 

<0.00, 

NORMAL, 

0, 

0. 00, 

0. 00> 

/* User 

*/ 



> 

>, 

< 


KUGEL, 

< 8.0, 2.5, 22.5>, 

2.5, 

< /* Materiale: »/ 


<0.00, 

0.00, 

1.00> 

<0.00, 

0. 00, 

0. 00> 

<0.00, 

0. 00, 

0.00> 

<1.00, 

1.00, 

1.00> 

< 4.0, 

4.0, 

4. 0> 

<0.00, 

0. 00, 

0.00} 

NORMAL, 



0, 



/* User 

*/ 



> 

>, 

< 

KUGEL, 

< 6.1, 1.2, 18.9>, 

1 . 0 , 

< /* Materiale: */ 


* 
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<1.00, 

1.00, 

1.00} 

<0.00, 

0. 00, 

0. 00} 

<0.00, 

0. 00, 

0. 00} 

<9.50, 

9.50, 

9.50} 

<50.0, 

50.0, 

50.0} 

<0.00, 

0.00, 

0.00} 

NORMAL, 



0, 



/* User 

»/ 



> 

). 

< 


KUGEL. 

<20.5, 2.2, 6.5}, 

1.5, 

< /* Materiale: */ 
<1.00, 0.00, 0.00}, 
< 0 . 00 . 0 . 00 , 0 . 00 }, 
< 0 . 00 , 0 . 00 , 0 . 00 >, 
<9.50, 9.50, 9.50 >, 
<50.0, 50.0, 50.0>, 
< 0 . 00 , 0 . 00 , 0 . 00 >, 
NORMAL, 

0, 

/* User */ 

> 


>. 

< 


KUGEL. 

<12.0. 2.7, 11.0), 

2.5. 

< /* Materiale: */ 


<0. 00, 

0. 00, 

1.00} 

<0.00, 

0.00, 

0.00) 

<0.00, 

0. 00, 

0. 00) 

<5.00. 

5.00, 

5. 00} 

<60.0, 

60.0, 

60. 0} 

<0.00. 

0.00, 

0. 00} 

NORMAL, 



0. 



/* User 

*/ 



> 


>! 


struct flaeche new_f laechen 11 = 

< 

< /• Parete sinistra: */ 

FLAECHE, /* Tipo */ 

< 0.0, 0.0,-30.0), /* 3 angoli */ 

< 0.0. 20.0,-30.0>, 

< 0.0, 0.0, 30.0>, 

< /» Piano, verrà' iniziaiizzato in seguito: */ 
<0,0,0>,<0,0,0>, <0,0,0>,FALSE,<0,0,0} 

). 
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I 


< /* Materiale: */ 


<0.40, 

0. 40, 

0.401, 

/* 

Colore 

*/ 

<1.00, 

0.00, 

0.001, 

/* 

Colore 2 

*/ 

<0.00, 

0. 00, 

0.001, 

/* 

Colore 3 

*/ 

<0.70, 

0.70, 

0.701, 

/* 

Kr 

*/ 

<1.00, 

1.00, 

1.001, 

/* 

Fuoco f 

*/ 

<0.00, 

0.00. 

0.001, 

/* 

Int.specc. 

*/ 

NCiRMAL, 



/* 

Oper. luce 

*/ 

0, 



/* 

Tipo superf 

. ♦/ 

/* User 

: */ 






< 


< /* Motivo 

10 , 10 , 

<0x0000. 

0x003c, 

0x021c, 

0x20le, 

> 

> 

) 

>, 

< /* Farete posteriore 
FLAECHE, 

< 1.3, 1.3, 29.91, 

< 1.3, 13.7, 29.91, 

<18.7, 1.3, 29.9>, 


(solo dopo impostazione di tipo di 
/* N.ro motivi in direz. m/k */ 
0x0000, 0x0000, OxOOlc, 

0x005c, 0x009c, 0x01 le, 

0x041c, OxOffc, OxlOlc, 

0x401c, 0xe03e, 0x0000> 


(specchiata): 
/* Tipo 
/* 3 Ango1i 


*/ 

*/ 

*/ 


< /* Piano (verrà' iniziaiizzato in seguito: 
<0,0,0,>,<0.0,0>,<0,0,0>,FALSE,<0.0,01 

>, 

< /* Materiale: */ 


<0.00, 

0.00. 

0.001, 

/* 

Colore 

*/ 

<0.00, 

0. 00, 

0.001, 

/* 

Colore 2 

*/ 

<0.00, 

0.00. 

0.001, 

/♦ 

Colore 3 

*/ 

<0.00, 

0.00. 

0.001, 

/♦ 

Kr 

♦/ 

< 1.0, 

1.0, 

1.01, 

/* 

Fuoco f 

*/ 

<0.85, 

0.85, 

0.851. 

/* 

Int.specc. 

* / 

VERSPIECiELT, 


/* 

Oper. luce 

*/ 

0, 



/* 

Tipo superf 


/* User 

*/ 






*/ 


> 


superf. 


>, 

< /* parete posteriore (non specchiata): */ 
FLAECHE, 

< 0.0, 0.0, 30.01, 

< 0.0, 20.0. 30.01, 

<20.0, 0.0. 30.01, 

< /* Piano, verrà' iniziaiizzato in seguito: */ 
<0.0,01,<0,0,01,<0,0,01,FALSE,<0,0.01 

>, 

< /• Materiale: */ 

< 1 . 00 , 1 . 00 , 1 . 001 , 

< 0 . 00 , 0 . 00 , 0 . 001 , 


2 ) : */ 
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< 0 . 00 , 0 . 00 , 0 . 00 >, 

< 1 . 10 , 1 . 10 , 1 . 10 >, 

<99.0, 99.0, 99.0>, 

< 0 . 00 , 0 . 00 , 0 . 00 >, 

NORMAL, 

0, 

/* User */ 

> 

1 , 

< /* Piano del tavolo: */ 

FLAECHE, 

< 0.0, 0.0,-30.0>, 

< 0.0, 0.0, 30.0>, 

<20.0, 0.0,-30.01, 

< /* Piano, verrà' inizi alizzato in seguito: */ 
<0,0,01,<0,0,01,<0,0,01,FALSE,<0,0,01 

1, 

< /* Materiale: */ 


<0.70, 

0. 00, 

0. 001 

<0. 00, 

0.00, 

0. 001 

<0.00, 

0. 00, 

0.001 

<1.00, 

0.50, 

0.501 

< 1.0, 

1.0, 

1.01 

<0.00, 

O 

o 

o 

0.001 

NORMAL, 



2, 



/* User 

: */ 



< /* Motivo: */ 

5,5, /* Numero motivi in direzione k/m */ 

<0xeeee, Oxeeee, Oxeeee, Oxeeee, 

Oxeeee, Oxeeee, Oxeeee, Oxeeee, 

Oxeeee, Oxeeee, Oxeeee, Oxeeee, 

Oxeeee, Oxeeee, Oxeeee. Oxeeee 1 


1 

1 

1 , 

< /* Fondo scatola: 
FLAECHE, 


*/ 


( 5. 0, 

0. 1, 

3.01, 

<15.0, 

0. 1, 

3.01, 

< 5.0, 

0.1, 

20.01, 

< /* Piano, 

verrà' 

<0,0,01 

, <0, 

0, 01, <0 

1, 



< /* Materia 

le: */ 

<1.00, 

1.00 

, 1.001 

<0.00, 

0.00 

, 0.001 

<0.00, 

0.00 

, 0.001 

<1.00, 

1.00 

, 1.001. 

< 1.0, 

1.0 

, 1.01 

<0. 00, 

0.00 

, 0.001 


. 0,01 


NORMAL. 
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1 , 

/* User: */ 

< 


< /* Riquadri: ♦/ 

4, 4, /* Numero riquadri in direzione m/k */ 

<0,0,0,0, o.o, o.o, 0,0, o, e, 0,0, o, o> 

) 


> 

> 

>, 


<■/* Coperchio scatola: */ 

FLAECHE, 

<15.0, 5.0, 3.0>, 

<15.0, 5.0, 20.0>, 

<22.0, 0.0, 3.0>, 

< /* Piano, verrà' inizi alizzato in seguito »/ 
<0,0,0>,<0,0,0>,<0,0,0>,FALSE,<0,0,0> 

), 

< /* Materiale: */ 


<1.00, 

1.00, 

1.00} 

<0.30, 

0.30. 

0.30> 

<0.00, 

0. 00, 

0. 00> 

<1.00, 

1.00, 

1.00> 

< 1.0, 

1.0, 

1.0> 

<0.00, 

0.00, 

0. 00> 

NORMAL, 



1 , 



/* User 

: */ 



< 


< /* Riquadri: */ 

4, 4, /* Numero riquadri in direztione m/k */ 

< 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 } 


> 

> 

>, 

< /* Farete anteriore scatola: */ 
FLAECHE, 


< 5.0, 

0. 1 , 

3. 0> , 

< 5.0, 

5. 0, 

3.0}, 

<15.0, 

0. 1, 

3. 0 >, 

< /* Piano, verrà' iniziaiizzato in seguito 

<0,0,0> 

,<0,0, 

0},<0,0,0},FALSE,<0,0.0} 

< /* Materiale: */ 

<1.00, 

0. 00, 

0.00}, 

<0.00, 

0. 00, 

0.00}, 

<0.00, 

0. 00, 

0.00}, 

<1.00, 

0. 00, 

0.00}, 

< 1.0, 

1.0, 

1.0}, 

<0.00, 

0. 00, 

0.00}, 
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NORMAL, 

0, 

/* User */ 

1 

>. 

< /* Parete posteriore scatola: */ 

FLAECHE. 

< 5.0, 0.1, 20.0>, 

< 5.0, 5.0, 20.01, 

<15.0, 0.1, 20.01. 

< /* Piano <verrà' inizi alizzato in seguito: */ 

<0,0,0,1,<0,0,01,<0,0,01,FALSE,<0,0,01 

>, 


< /* Materiale: */ 
< 1 . 00 , 0 . 00 , 0 . 001 , 
< 0 . 00 , 0 . 00 , 0 . 001 , 
< 0 . 00 , 0 . 00 , 0 . 001 , 
< 1 . 00 , 0 . 00 , 0 . 001 , 
< 1 . 0 , 1 . 0 , 1 . 01 , 
< 0 . 00 , 0 . 00 . 0 . 001 , 
NORMAL, 

0 , 

/* User */ 

1 


< /* Farete laterale destra scatola: */ 
FLAECHE, 

<15.0, 0.1, 3.01, 

<15.0, 5.0, 3.01, 

<15.0, 0.1, 20.01, 

< /* Piano, verrà' iniziaiizzato in seguito: 
<0,0,01,<0,0,01,<0,0,01,FALSE,<0,0.01 

1, 

< /* Materiale: */ 


ti.00, 

0. 00, 

0. 001 

<0.00, 

0. 00, 

0. 001 

<0.00,. 

0. 00, 

0.001 

<1.00, 

0. 00, 

0. 001 

< 1.0, 

1.0. 

1.01 

<0.00, 

0. 00, 

0. 001 

NC'RMAL, 



0, 



/* User 

*/ 



1, 

< /* Parete laterale sinistra scatola: */ 
FLAECHE. 


*/ 
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< 

5.0. 

0. 1. 

3. 0 > , 

< 

5.0, 

5.0, 

3i 0>, 

< 

5.0, 

0.1. 

20.0>, 

< 

/* Piano, 

verrà' iniziaiizzato in seguito: */ 


<0,ù.0>,<0,0,0>,<0, 0, 0>„FALSE,<0,0,0> 
>, 

< /* Materiale: */ 


<1.00, 

0. 00, 

o. oo> 

<0.00, 

0.00. 

o. oo> 

<0.00, 

0.00, 

o. oo> 

<1.00, 

0.00, 

0.00> 

< 1.0, 

1.0, 

l. 0> 

<0.00, 

O 

o 

o 

0. 00> 

NCiRMAL, 



0, 



/» User 

*/ 



> 

> 

>5 


/* Preparazione di tutte le strutture dati: ♦/ 

VOID init_welt(welt, beo) 

struct welt *welt; /♦ Puntatore struttura mondo 

struct beobachter ♦beo: /♦ Puntatore al 1'osservatóre 

< 

RESISTER WORD fi; 

/♦ Approntamento strutture mondo: ♦/ 
welt->anz_kugeln * 

sizeof new_kugeln / sizeof (struct kugel); 
wel t->kligeln = (st ruct kugel *)new_kugeln; 
welt->anz_flaech = 

sizeof new_flaechen / sizeof (struct flaeche); 
welt->flaech = (struct flaeche *>new_flaechen; 
welt->anz_licht = 

sizeof new_licht / sizeof (st ruct 1ichtquel le); 
welt->licht = (struct 1ichtquel le *)new_1icht; 
welt->anz_hinten = 1; 

welt->hinten = (struct hintergrund ♦ ) (Stnew_hint) ; 
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welt.->anz_obj = wel t->anz_kugelri ♦ 
welt->anz_flaech + 
welt->anz_lìcht ♦ 1; 

COLLET(welt->hint1icht., new_welt.hintlicht)? 


/* Approntamento struttura osservatore: */ 

♦beo = new_beo; 

beo->x_winkel *= PI/1S0; /* Trasformazione angolo in Gradi */ 

/♦ Approntamento strutture piano in tutte strutt. di superficie ♦/ 
for (fl = 0: f 1 <wel t->anz_f laech; fi**) 

< 

/* Punto fisso PO e vettori di direzione a, b: */ 

VEKLET(new flaechen t f11.ebene.pO, new_f1aechen[fi].pi>; 

VEKSUB(new_f1aechen[f11.ebene.a, 

new_f1aechen t f1].p2, new_f1aechen lfll.pl); 

VEKSUB(new_ f1aechen[f1).ebene.b, 

new_f1aechen t f11.p3, new_f1aechenffll.pl); 


Ecco che finalmente la programmazione è di nuovo divertente! 



Non c’è molto da dire come commento. La cosa più importante è la partenza, poi 
tutto il resto va avanti da solo. L'esecuzione dura solo il tempo necessario a completa¬ 
re tutta l'immagine, e ciò dipende naturalmente dal numero e dimensione degli ogget¬ 
ti, dal numero delle fonti di luce e dal numero dei corpi a specchio, nonché naturalmente 
anche dal compilatore che si sta usando. La versione eseguibile presente sul dischetto 
è stata compilata con il compilatore Aztec, versione 3.4a e, a causa delle molte opera¬ 
zioni in virgola mobile (FLOAimtg point), essa è circa due/tre volte più veloce dello stesso 
programma compilato con il Lattice, in una vecchia versione precedente alla 3.10 (es. 
V 3.03). Tuttavia ci si potrà accontentare di alcune ore di tempo di calcolo, per lo sce¬ 
nario qui presentato, tenendo presente che il programma è piuttosto veloce: di quanti 
giorni o settimane necessiterebbe infatti un programma in Basic per produrre lo stesso 
risultato? Per fortuna i possessori del Lattice C, in versioni posteriori alla 3.10, potranno 
utilizzare le veloci routine FFP del sistema operativo dell'Amiga senza i problemi che 
avrebbero incontrato con le versioni precedenti (Ved. Cap. 2). Con ciò, le velocità di 
esecuzione dei due compilatori si differenziano in questo. Ma vale la pena d' aspetta¬ 
re!. In ogni caso, se il lettore troverà l’attesa troppo lunga, potrà cominciare solo con 
una sfera e una fonte di luce. In tal caso l'immagine viene completata in pochi minuti. 


Se, in qualunque momento si vuole riprendere il comando dell'elaboratore, sarà suf¬ 
ficiente premere il tasto ESC (anche durante la fase di disegno) ed il programma verrà 
interrotto. Diversamente sarà possibile, tramite il Mouse, posizionare lo schermo dietro 
un altro. Dopo aver abbassato sotto CLI la priorità di task del programma di Ray-Tracing 
con il comando CHANGETASKPRI, sarà possibile lavorare normalmente con il com¬ 
puter mentre il programma di Ray-Tracing funzionerà in background. 
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Ipotizziamo ora che l’immagine completa si trovi immobile sullo schermo, e di volerla 
mostrare a un amico il giorno successivo. Non è necessario lasciare acceso il compu¬ 
ter per tale periodo; basterà premere il tasto <S> e l’immagine verrà memorizzata 
su disco in formato IFF. Sul dischetto qui allegato è contenuto un piccolo programma 
di caricamento che farà apparire in qualunque momento, su richiesta, l’immagine me¬ 
morizzata. Se non si tratta di una immagine in EXTRA_ HALFBRITE, non sarà un pro¬ 
blema caricare l’immagine completa per es. in Deluxe Paint ed elaborarla in seguito. 


Per la rappresentazione dell’Immagine si è scelto, per la versione stampata, il modo 
grafico EXTRA _ HALFBRITE, che rende possibile gestire contemporaneamente sullo 
schermo 64 colori diversi. Coloro i quali non sono in grado di rappresentare questo 
modo (gli Amiga 1000 non lo possiedono ancora e molti 500 hanno dei problemi) e 
che non possiedono un compilatore, allo scopo di modificare leggermente il program¬ 
ma di cui sopra e ricompilarlo, troveranno sul dischetto allegato un programma già 
compilato per 32 colori. In esso tuttavia la qualità dei colori sarà molto inferiore (cioè 
è possibile utilizzare un numero minore di tonalità di colore). Sul dischetto troveremo 
inoltre dei file sorgenti ed il programma eseguibile per una immagine in modo HAM 
(Hold-And-Modify), nel quale possono venire utilizzati, anche se con qualche limitazio¬ 
ne, tutti i 4096 colori deH’Amiga. Solo la programmazione della Routine di posiziona¬ 
mento dei punti dovrà venire leggermente modificata. In tutti i modi, l’importante è una 
scelta intelligente dei colori nel registro di Palette, che determina esattamente ed in 
ultima istanza la qualità dell'intera immagine. 


Non dovrebbe comunque essere un problema per nessuno impostare il modo Inter- 
lace e lavorare con doppia risoluzione. Tuttavia in questo caso il calcolo di una imma¬ 
gine avrà una durata doppia del normale, per cui non è consigliabile per le prime 
applicazioni (anche se bisogna dire che il modo Interlace produce risultati entusiasmanti). 
Al momento dell’impostazione del modo Interlace è necessario ricordarsi di dimezzare 
la dimensione verticale del punto (cioè ypg nella struttura dell’osservatore) dal momento 
che un punto è alto la metà della sua larghezza. Se si tralascia questo compito, l'imma¬ 
gine apparirà molto deformata. 


Passiamo ora al programma vero e proprio. Le necessarie basi matematiche e algo¬ 
ritmiche sono già state apprese nelle sezioni precedenti, e costituiscono le premesse 
per le spiegazioni che seguono. 


Cominciamo dall’inizio - Sotto il titolo “Costanti Hardware" vengono impostate alcu¬ 
ne costanti tramite # define, che determinano il numero dei colori raggiungibili, la riso¬ 
luzione Hardware ed il modo grafico selezionati. Naturalmente questi valori potranno 
venire modificati a piacere in qualunque momento. Come abbiamo già detto, attual¬ 
mente sono impostati 64 colori con 32 registri di Palette, e con ciò abbiamo 6 bit-piane, 
una risoluzione di 320x200 in modo EXTRA _ HALFBRITE. Il massimo di 16 livelli di 
intensità del colore è naturalmente preimpostato in modo fisso e non modificabile. 


Quindi abbiamo delle definizioni ed inizializzazioni note già da tempo: strutture per 
un nuovo schermo, definizione ed inizializzazione di una nuova finestra, in main( ) il 
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programma apre qualche library, il nuovo schermo e la nuova finestra e salta quindi 
al programma principale vero e proprio do _ program( ), di cui ci occuperemo fra poco 

Prima però abbiamo a che vedere ancora con alcuni # define. Qui vengono definite 
soprattutto delle macro per le quali non dovrebbe venire approntato un sotto-programma 
separato per motivi di velocità (se non si conoscono le macro in C, verificare nel testo 
sul C di cui si dispone gli argomenti "Preprocessore” o "#define"): si tratta della defi¬ 
nizione di massimo, minimo, valore assoluto ed elevazione a potenza, nonché di nu¬ 
merose operazioni vettoriali necessarie. Nel programma un vettore viene sempre 
considerato come una matrice di tre elementi. Ógni elemento rappresenta una coordi¬ 
nata del vettore (es.: v[0], v[1] e v[2] sono i tre elementi vx, vy e vz del vettore v). 

Se ora si devono sommare due vettori à e b e li si deve memorizzare come c(c = à + b), 
il programma dovrà sommare, conformemente alla definizione dell’addizione dei vet¬ 
tori, che dovrebbe già esserci familiare, ogni singolo elemento di à ad ogni suo corri¬ 
spondente elemento di ó e memorizzarlo come elemento di c: 

c[0] = a[0] + b[0] 

c[1] = a[1] + b[1] 

c[2] = a[2] + b[2] 


Corrisponderà quindi a: 


( c *\ /M / b *\ 

a)-(i) + (S:) 


Lo stesso vale per tutte le altre operazioni con vettori. Le diverse macro (per l'addi¬ 
zione, la macro VEKADD(c,a,b)) eseguiranno esattamente tali operazioni. Come para¬ 
metri di macro dovranno venire indicati in seguito, nel programma solo i nomi delle 
matrici, es. VEKADD(risultato, vettorel, vettore2) sommerà gli elementi dei vettor vet¬ 
tore 1 [ ] e vettore 2[ ] e memorizzerà il risultato in ( ]. Fare attenzione al fatto che è pos¬ 
sibile incorporare solo poche macro in grandi espressioni, diversamente molte di esse 
daranno come valore di risultato VOID. 


L'importante passo successivo è la dichiarazione di tutte le strutture impiegate nel 
programma, che costituiscono in pratica l'ossatura dell’intero sistema. In linea di mas¬ 
sima (quasi) tutti i dati vengono raccolti in strutture che vengono trasferite come para¬ 
metri di comunicazione di funzione in funzione. In realtà non vengono trasferite le strutture 
vere e proprie, bensì solo il loro puntatore. In tal modo possono venire resi accessibili 
molto velocemente ad ogni struttura molti dati locali. Analizziamo quindi le strutture una 
per una: 

struct punkt (strutt punto): 

Si tratta di una pura struttura di comunicazione che contiene dati che vengono cal¬ 
colati una sola volta nel corso del programma e che forse serviranno in seguito. Di con- 
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seguenza il calcolo di un punto di intersezione, per esempio, non è necessario nelle 
diverse routine. Una volta determinato, esso sarà disponibile immediatamente a tutte 
le altre funzioni. Anche altre strutture contengono tali "memorie di valore intemedio" 
che verranno completate in seguito durante il programma. In ogni caso, qui abbiamo 
a che fare con tutti i dati che descrivono un punto nello spazio: posizione, colore, valo¬ 
re s per l’equazione vettoriale della retta del raggio dello sguardo ecc. Alcune memo¬ 
rie (user 0-2) sono parzialmente ancora inutilizzate e previste per futuri ampliamenti. 
E’ in esse che si trova infine il colore del punto dello schermo. 


struct gerade (strutt retta): 

Una difinizione vettoriale di una retta è composta da un punto fisso PO e da un cosid¬ 
detto vettore di direzione à (ved. equazione vettoriale di una retta). Ogni retta del pro¬ 
gramma viene determinata in questo modo e con questa struttura. 


struct ebene (strutt piano): 

Conformemente all'equazione vettoriale k-m (oppure equazione s-t), un piano è de¬ 
terminato da un punto fisso PO e da due vettori di direzione à e b. Esiste eventualmen¬ 
te la possibilità di aggiungere anche il vettore della normale al piano (ved. cap. 4.3), 
cosa che rende più semplici determinati calcoli. Questi parametri vengono trattenuti 
in maniera fissa dalla struttura del piano. Dal momento che il vettore della normale non 
è sempre necessario, il flag BOOLEANO (vero falso) n_ valid determina se esso è indi¬ 
cato o no nella struttura in quel momento. 


struct material (strutt materiale): 

Arriviamo alle parti interessanti del programma. La struttura in questione determina 
le caratteristiche specifiche di un oggetto nello spazio. Naturalmente essa non è mai 
disponibile da sola, ma sarà parte di un’altra struttura, cioè di quella dell'oggetto (es. 
per una sfera o una superficie). E’ da qui che il programma determina quale colore 
e quali caratteristiche di riflesso sono possedute dall'oggetto, se è a specchio (l'opzio¬ 
ne "trasparente" non è implementata in questa versione del programma) o se la sua 
superficie è strutturata in maniera particolare. In linea di massima questo è il luogo per 
la maggior parte delle modifiche di un oggetto (lucido, opaco o metallico, chiaro, scu¬ 
ro, rosso, verde o bianco.). 


Questa struttura è stata concepita nel modo più aperto possibile, nel caso in cui si 
volesse ampliare questo programma, essa offrirà spazio per molti parametri, per de¬ 
scrivere l'oggetto in maniera sempre più particolareggiata. Come struttura di superfi¬ 
cie per i piani sono già stati implementati i riquadri e altri motivi a piacere. La definizione 
del motivo si trova all’interno della union nella struttura "muster" (motivo) (ved. sotto). 
Ritorneremo in seguito su queste strutture e le approfondiremo. 


struct hintergrund (strutt sfondo): 

Siamo giunti alla prima struttura di oggetto: lo sfondo. Normalmente una struttura 
di oggetto è costituita, grossolanamente, come segue: 
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Carattere di identificazione del tipo di oggetto (es. "0” per sfondo) 

Posizione dell’oggetto 

Altri parametri descrittivi 

Proprietà del materiale (di solito struct material) 

Dove non è presente nessun oggetto, apparirà lo sfondo. Attualmente l'unico parame¬ 
tro modificabile è il colore. C'è spazio per un altro colore (es. cambiamento di colore 
dall’orizzonte allo zenith ecc.) che però non è utilizzato in questo programma. 


struct lichtquelle (strutt fonteluce): 

Anche questa è una struttura di oggetto particolare. Essa definisce la posizione, lu¬ 
minosità e colore di una fonte di luce. Quando una fonte di luce è invisibile, essa viene 
trattata esattamente come una sfera monocolore, ecco perché è necessario indicarne 
il raggio. La costante della distanza dist _ konst è la stessa costante kd che abbiamo 
già incontrato trattando delle riflessioni diffuse e a specchio. Essa serve a non far ap¬ 
parire troppo scure delle fondi di luce molto lontane (kd viene moltiplicata per la distan¬ 
za d della fonte di luce rispetto all’oggetto in questione). Minore è kd, più chiara sarà 
la fonte di luce. 


struct kugel (strutt sfera): 

Definizione di una sfera con tipo, posizione, raggio e le diverse caratteristiche di ma¬ 
teriale. 


struct flaeche (strutt superficie): 

Un parallelogramma definito tramite tre punti angolari e le costanti del materiale. La 
struttura dei piani aH’interno di questa struttura verrà inizializzata solo in seguito. Quindi 
il programma calcola la formula del piano dai tre punti angolari. 


struct beobachter (strutt osservatore): 

Lasciamo gli oggetti dietro di noi e rivolgiamoci all'osservatore, la cui posizione dire¬ 
zione dello sguardo ecc. ci dovrebbero già essere note. Dovrà venire indicato quanto 
segue: 

— Posizione 

— Punto al quale l’osservatore sta guardando. Con ciò, si potrà indicare direttamente 
un oggetto. 

— In alternativa, vettore dello sguardo, cioè direzione dello sguardo. 

— Distanza dalla lastra di vetro (normalmente uguale a 1, ma può assumere anche 
altri valori, per cui l’angolo di visuale verrà incrementato o diminuito proporzional¬ 
mente). Esso determina, per così dire, l'ampiezza di messa a fuoco dell'obiettivo. 

— Larghezza e altezza di un punto sullo schermo o sull’apparecchiatura sulla quale 
si vuol fare uscire il grafico, in unità a piacere (xpg ed ypg). 

— Numero dei punti da tracciare in direzione x ed y. 

— Angolo di visuale orizzontale. Con esso si determina la sezione di immagine che 
si vuol vedere (è un altro modo per indicare l’ampiezza di messa a fuoco dell'obiettivo. 
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Gli altri parametri verranno calcolati autonomamente in seguito dal programma, par¬ 
tendo dai valori indicati. Ancora una cosa relativamente al punto cui si guarda cioè 
al vettore dello sguardo: sarà necessario dichiarare chiaramente al computer, in qua¬ 
lunque maniera, in quale direzione sta guardando l'osservatore (verso il basso, l’alto, 
a destra o a sinistra ecc.). Nelle nostre derivazioni matematiche siamo partiti da un de¬ 
terminato punto al quale egli stava guardando. Con ciò siamo in grado di evitare di 
‘‘guardare oltre” un determinato oggetto. Dal momento però che con questo tipo di 
indicazione cambia la direzione dello sguardo, e quindi la prospettiva, non appena si 
sposta l’osservatore, spesso è più vantaggioso indicare la direzione dello sguardo co¬ 
me vettore dello sguardo (calcolabile dalla differenza fra il punto cui si guarda e la po¬ 
sizione dell’osservatore, ved. sopra). Quindi possiamo scegliere fra l'utilizzo del punto 
cui si guarda come indicazione di direzione, per cui imposteremo a zero il vettore dello 
sguardo, oppure l'indicazione del vettore dello sguardo. Il programma comprende e 
accetta ambedue i casi. 


Con l’indicazione della risoluzione (cioè del numero dei punti da tracciare in direzio¬ 
ne x ed y) determiniamo quanto sarà grande l'immagine sullo schermo. Una piccola 
immagine viene naturalmente calcolata molto più velocemente ed è più adatta a fun¬ 
gere da test che non una a tutto schermo, per la quale il computer lavorerà eventual¬ 
mente diverse ore. 


struct welt (strutt mondo): 

L’ultima struttura tiene insieme tutto il mondo. E' in questa struttura che il computer 
legge quanti oggetti, quante fonti di luce, sfere e superfici si trovano nel mondo e dove 
trovare le definizioni. Tutte le sfere (nonché tutte le fonti di luce e superfici) sono memo¬ 
rizzate per esempio in una matrice composta da strutture di sfere. L’indirizzo di parten¬ 
za di tale matrice si trova qui. Qui si indica anche quanto deve essere intensa la luce 
diffusa, cioè la luminosità di sottofondo, cioè quanto deve essere chiaro un oggetto 
che si trova in ombra. 


A questo punto abbiamo ricevuto una visione d'insieme delle strutture di questo mon¬ 
do sintetico. Ora entriamoci. 


Il fulcro di tutti i calcoli del computer, nonché di tutti i voli e cadute del programmato- 
re è la routine principale do_program( ). E’ qui che si trovano i due loop FOR nidificati 
uno nell'altro, che scandiscono ogni punto dello schermo, ne calcolano il colore e lo 
fanno apparire sul monitor. 


Tuttavia, prima di essa, il programmatore ha posto le inizializzazioni, che si manife¬ 
stano nelle routine init_ welt( ), init _ farben( ) e get_ konst( ) che dobbiamo assoluta- 
mente analizzare. 


init_ welt( ) dispone tutte le strutture nel modo in cui il programma vuole trovarle. 
Essenzialmente essa recupera i dati che noi abbiamo immesso solo alla fine per i sin¬ 
goli oggetti, fonti di luce, osservatore ecc. Torneremo in seguito su questa routine. 
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Continuiamo quindi con init_farben( ), che prepara la Palette di colori per la fun¬ 
zione di posizionamento del punto e che è quindi secondaria. Lasciamo da parte 
per un attimo anche questa routine. 

Passiamo ora a get_ konst( ): il punto principale è costituito da due esercizi obbli¬ 
gatori che hanno a che vedere con la struttura dell'osservatore: il calcolo del vettore 
dello sguardo s dall'osservatore alla lastra di vetro, che viene calcolato dal punto cui 
l’osservatore guarda o, se disponibile, dal vettore della vista. Qui utilizziamo per la pri¬ 
ma volta le macro #define: VEKLET(), VEKSUB(), VEK_ LAENGE() e MULVEK(). 
Cerchiamo di chiarircene bene il funzionamento fin da subito: esse ci serviranno molto 
in seguito. Il risultato, il vettore dello sguardo, memorizza quindi la routine negli spazi 
non ancora occupati della struttura dell’osservatore (beo è in questo caso un puntato¬ 
re alla struttura dell'osservatore). Quindi si accederà ad un elemento: 

(* beo).blickv[0] 

Oppure, più brevemente 

beo -> blickv [0], 

Per quanto concerne il calcolo dei vettori dei passi xe ed ye, non è necessario entra¬ 
re nei dettagli, in quanto sono già stati affrontati in precedenza. Essi vengono ora molti¬ 
plicati per la singola dimensione di punto (xpg, ypg) al fine di determinare semplicemente 
tramite la formula seguente un punto Pm sulla lastra di vetro, avente le coordinate x,y 

P m = B + s + x’(xpg*xe) + y*(xpg*ye) 

Ciò accade anche nella funzione get_punkt(). 

Con ciò siamo già dentro i due loop di FOR di do _ program( ). Dopo che le coo r a ~a- 
te spaziali del punto sulla lastra di vetro sono note, non dovrebbe essere difficie cacoa- 
re il raggio dello sguardo per il quale si sta controllando se interseca un oggett; ; ~c 
A questo punto incontriamo un'altra macro GET_GERADE( ) che determ -a ec_az :- 
ne di una retta dati due punti e la scrive nella struttura di retta del raggio deio sg_=':x 

Di seguito troviamo le inizializzazioni del cosiddetto coefficiente d, -te".sta ere . e- 
ne utilizzato esclusivamente per la limitazione del numero di speco- a:_ r e — _ t p e e 
del valore del colore del punto, che deve ancora venire determ nato 

A questo punto inizia l’inseguimento del raggio: ray_trace( ) Questa -optine deter¬ 
mina, più o meno brevemente, il colore esatto del punto sulla lastra di vetro. con una 
precisione di sette cifre decimali, nel campo che va da 0 a 1. Il colore viene determina¬ 
to dai valori di intensità di ciascuno dei tre colori di base rosso verae e blu. Questo 
valore di colore determinato (che si trova nella struttura de Dento) viene trasmesso dal 
do_ programm( ) alla routine plot( ), che si occupa di far apoanre un punto sullo schermo 
avente circa quel colore (con un massimo di 64 colon è già un problema). Nel caso 
in cui siamo riusciti a concludere con successo anche questa azione, la routine control¬ 
la se un tasto è stato premuto (infatti è possibile interrompere il tutto tramite la pressio¬ 
ne del tasto <Esc>), quindi passa al punto successivo. 
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ray_trace( ): 

ray_trace() è certamente una delle funzioni più importanti di tutto il programma, 
dal momento che essa insegue un raggio, calcolando tutti i punti di intersezione di questo 
raggio con tutti gli oggetti presenti. Essa seleziona il punto di intersezione successivo 
(rispetto al punto fisso del raggio) e determina il colore di tale punto dell’oggetto. Essa 
è molto importante anche perché può venire chiamata ricorsivamente in caso di og¬ 
getti specchiati. 


Come molte funzioni centrali, anche ray _ trace( ) è piuttosto piccola e trascurabile, 
dal momento che funge principalmente solo come "punto di smistamento", in quanto 
essa affida l'esecuzione dei compiti veri e propri ed i "dettagli" ad altre routine da lei 
chiamate. Quindi passa alla determinazione del punto di intersezione successivo. Que¬ 
sto compito viene svolto dalla funzione schnitt_objs( ), la quale trasferisce i tipi di og¬ 
getto dell’oggetto successivo ed il valore s dell’equazione della retta sulla quale si trova 
il punto di intersezione. Quindi non viene necessariamente calcolato il punto di interse¬ 
zione vero e proprio sotto forma di coordinate, bensì sotto forma di parametro s (fattore 
di allungamento) per l’equazione vettoriale della retta (a partire dal quale è naturalmente 
possibile determinare in qualunque momento il punto stesso). Con queste informazio¬ 
ni, ray _ trace( ) potrà quindi saltare direttamente alle routine che determinano il colore 
dell'oggetto in questo punto: hintergrundfarbe( ), lichtfarbe( ), kugelfarbe( ), flaechen- 
farbe( ) (colore sfonro, colore luce, colore sfera, colore superficie). 


schnitt_objs( ) (taglia ogg): 

Il nucleo del calcolo del punto di intersezione schnitt_objs( ) taglia ogg è natural¬ 
mente un punto di smistamento per le singole routine, molto diverse tra loro, che deter¬ 
minano il punto di intersezione di una sfera o di una superficie ecc. con il raggio della 
vista: schnitt_kugel_a( ) (taglia sfera), schnitt_flaech( ) (taglia superficie). Per ogni ti¬ 
po di oggetto è stato preparato un loop di FOR che esamina tutti gli oggetti memoriz¬ 
zati nella matrice degli oggetti. Nel caso in cui esista un punto di intersezione con il 
singolo oggetto, esso controllerà se tale punto di intersezione si trova più vicino all’os¬ 
servatore del punto di intersezione successivo. In tal caso, la routine memorizzerà la 
s e l'indirizzo della singola struttura di oggetto (in realtà il puntatore alla prima WORD 
della struttura di oggetto, cioè il tipo di oggetto) e proseguirà con l’oggetto successivo. 
In caso di superfici, vengono registrate anche le coordinate del punto di intersezione 
disponibili già calcolate, nonché i valori m e k dell'equazione di un piano (cioè la posi¬ 
zione del punto di intersezione sul piano), di cui si potrà avere bisogno in seguito (non 
è infatti necessario fare i calcoli due volte). 


Dopo che tutti gli oggetti presenti sono stati controllati in questa maniera e dopo che 
è stato determinato ogni singolo punto di intersezione, dovremo bene o male occupar¬ 
ci dello sfondo. Con la seguente istruzione 

return <**objekt> ; 

la routine restituisce il tipo di oggetto successivo (che si trova in ogni struttura di og¬ 
getto), memorizza velocemente s nella struttura del punto e termina. 
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Calcolo del punto di intersezione: 
schnitt_kugel_a( ) (taglia sfera): 

A questo proposito non abbiamo molto da aggiungere, dal momento che è già stato 
quasi tutto spiegato nelle dissertazioni teoriche. La routine calcola il (i) punto (punti) 
di intersezione tra il raggio trasferito ed una sfera indicata, controllando contempora¬ 
neamente se il più piccolo s trovato (esistono sempre due punti di intersezione, se tra¬ 
lasciamo il caso della tangenza) è maggiore di 0 (più esattamente: maggiore di quasi 
0, a causa della imprecisione di calcolo). In caso contrario, la routine calcolerà l's mag¬ 
giore come punto di intersezione (ciò significa che l’osservatore si trova aH’interno del¬ 
la sfera). 

schnitt_flaech( ) (taglia superficie): 

Anche in questo caso non c’è molto da spiegare, in quanto abbiamo appena affron¬ 
tato le basi matematiche. Osserviamo comunque un punto all’inizio della routine. In 
esso il programma controlla se il vettore della normale al piano, necessario in questo 
caso, è già stato registrato nella struttura di piano della superficie. In caso contrario 
il programma lo calcola velocemente tramite un prodotto vettoriale, lo memorizza nella 
struttura del piano, lasciandolo a disposizione per futuri usi come valido (n _ valid). Quindi 
anche per questa superficie non sarà più necessario determinare il vettore della normale. 

Torniamo un attimo alla funzione ray_trace( ). Abbiamo già superato il calcolo del 
punto di intersezione, l'oggetto più vicino è stato determinato e si trova in obj_typ 
A questo punto dobbiamo determinare il colore del punto di intersezione con l’ogget¬ 
to. A seconda di quale oggetto si tratti, la routine salterà, grazie all’istruzione SWITCH 
alle routine di calcolo del colore dei singoli tipi di oggetto: 


Calcoli del colore: 

Per quanto concerne i calcoli del colore dei singoli oggetti, possiamo dare libero sfo¬ 
go alla nostra fantasia: potremo infatti inserire ciò che più ci piace per quanto concerne 
le strutture di superficie, l'andamento dei colori o altri "effetti speciali”. 

hintergrundfarbe( ) (colore sfondo): 

Questa determinazione è molto semplice, in quanto il colore dello sfondo dovrà veni¬ 
re preso semplicemente dalla struttura dello sfondo. In questo punto è possibile anche 
programmare un andamento sfumato del colore o simile. Dal momento che il calcolo 
del colore dello sfondo ha luogo molto velocemente, i singoli passagg . nei quali non 
è ancora possibile vedere nulla, sono altrettanto veloci (potremo verificarlo direttamen¬ 
te sullo schermo). 

Iichtfarbe( ) (colore luce): 

Anche in questo caso non incontreremo nessun problema, dal momento che nella 
luce non saranno presenti specchiature, deformazioni o effetti simili. 

kugelfarbe( ) (colore sfera): 

Nel caso in cui il raggio incontri una sfera, diventa piuttosto laborioso riuscire a crea- 





re una bella immagine. Vedremo quindi per la prima volta come utilizzare le formule 
per la riflessione diffusa e a specchio. A tale scopo abbiamo bisogno da un lato delle 
coordinate del punto di intersezione, dall'altro del vettore della normale, cioè del vetto¬ 
re perpendicolare alla superficie alla superficie della sfera. L’Amiga calcola coerente¬ 
mente le parti necessarie: il punto di intersezione dalla equazione della retta del raggio 
e dal fattore di allungamento s (dal calcolo del punto di intersezione) e la normale co¬ 
me vettore dal centro della sfera al punto di intersezione. 


Inoltre esso determinerà il colore di base dell'oggetto, che dovrà venire modificato 
secondo le formule di riflessione. Con questo bagaglio, la routine kugelfarbe( ) avvia 
la funzione centrale per il calcolo dell'intensità del punto farbintens( ). Dal momento 
che questa routine non dipende da valori specifici dell'oggetto (le sue dimensioni di 
riferimento sono solo il punto di intersezione, la normale, il colore del punto e le costan¬ 
ti del materiale neutrali) essa non ha alcun collegamento con i singoli oggetti (ad esclu¬ 
sione di fonti di luce e sfondo). 


flaechenfarbe( ) (colore superficie): 

Lo scopo di questa routine è ovviamente identico a quello della routine appena in¬ 
contrata: punto di intersezione, normale, colore del punto. Ciononostante essa è un 
po’ più lunga, cosa che dipende dai molti effetti di superficie addizionali che possono 
venire selezionati per tali superfici: in tinta unita, a scacchiera oppure bicolore con un 
motivo a piacere. 


Il punto di intersezione del raggio con la superficie è già noto! Sappiamo infatti che 
è già stato determinato una volta, e che da allora è a nostra disposizione, un lavoro 
in meno. Anche il vettore della normale non rappresenta più un problema, essendo 
anch’esso già stato determinato (si trova ora nella struttura del piano della superficie). 


Ciò che resta da determinare è il colore di fondo dell’oggetto. Il programmatore ha 
differenziato, a questo scopo, tre casi diversi tramite SWITCH. Nella struttura del mate¬ 
riale esiste infatti un byte con il nome oberf _ typ. E’ in esso che metteremo il numero 
corrispondente al tipo della superficie desiderata: 


oberf _ typ = 0: (tipo superficie = 0) 

Questo è il caso più semplice e più noto: la routine si procura il colore di base del¬ 
l'oggetto direttamente dall’istruzione del colore della struttura del materiale, cioè l’og¬ 
getto è in tinta unita. 


oberf _ typ = 1: (tipo superficie = 1) 

L’inserimento di un uno in questo byte indica che l'oggetto (in questo caso la super¬ 
ficie) deve essere a quadri. I due colori per i riquadri provengono dai primi due registri 
di colore della struttura del materiale. In aggiunta a ciò, forniamo altri due valori alla 
struttura del motivo all'interno della struttura del materiale: il numero dei riquadri in di¬ 
rezione x e di quelli in direzione y rispetto al punto 0 della superficie (PO), in altre parole 
in direzione m e k, se vogliamo tralasciare l’equazione vettoriale del piano. 
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ue dimensioni di 
junto e le costan- 
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A questo punto dobbiamo ancora determinare in quale riquadro 
colore 2 ) si trova il punto, e con ciò ne avremo ottenuto il colore. 

oberf_typ = 2: (tipo superficie = 2 ) 

Con questa impostazione possiamo definire da soli un motivo di 
fare apparire sull'oggetto delle righe, dei punti o anche una piccola ; 
so tempo imposteremo anche il numero di volte per le quali il motivo 
tuto sulla superficie (anche qui in direzione m e k). Anche in questo 
a disposizione provengono dai primi due registri di colore. 

farbintens( ): (intensità colore) 

E' qui che si incontrano di nuovo tutte le routine che devono det 
di un oggetto o di un punto di un oggetto. farbintens( ) necessita d< 
vettore della normale, del raggio di luce, della struttura del punto (i 
del punto e il coefficiente di intensità), della struttura del materiale de 
ralmente della struttura del mondo (tutto in puntatori). 


xitine appena in¬ 
astante essa è un 
mali che possono 
e bicolore con un 


spiamo infatti che 
sizione, un lavoro 
oblema, essendo 
) della superficie). 


Ora il programma deve prima di tutto decidere se l'oggetto è a 
no. In caso positivo (determinato dalla variabile licht _ typ nella strutti 
verrà chiamata la routine di specchio. Il suo effetto finale è quello di < 
di riflessione (angolo di incidenza uguale all’angolo di uscita, come | 
visto nelle nostre considerazioni matematiche) e l'avviamento di un; 
quale viene richiamata la routine ray _trace( ) con il raggio di riflessi 
della vista. Ciò significa quindi che si andrà alla ricerca dell'oggetto 
cino, il quale a sua volta potrà essere a specchio oppure no. Naturai 
sibile procedere in questo modo all’infinito. Ipotizziamo infatti di av 
a specchio che corrano parallele l'una all'altra. Ogni specchio si spec 
nito nell'altro, ed il nostro programma entrerebbe in loop. 


irogrammatore ha 
struttura del mate- 
■tteremo il numero 


jolore di base del- 
lateriale, cioè l’og- 


ssto caso la super- 
ii primi due registri 
altri due valori alla 
D dei riquadri in di- 
(PO). in altre parole 
del piano. 


Abbiamo quindi bisogno di un criterio di interruzione per questa ri 
detto coefficiente di intensità. Per ogni oggetto specchiato dovremo 
numero relativo all'intensità di specchiatura (spiegel _ int[ ], daO a 1 ) 
materiale. Tale numero indica la percentuale della luce che viene sp 
mente dalla superficie a specchio (nessuno specchio infatti riflette 
la luce che lo colpisce). Questo numero (vale anche per RGB, infat 
grammare anche degli specchi "a colori”) viene moltiplicato dal progi 
ficiente di intensità attuale, diventando sempre più piccolo ds 
specchiatura (eccettuato il caso di quando lo specchio riflette al 1 ( 
di più). Non appena questo valore scende al di sotto di un determi 
termina anche la ricorsione, dal momento che non c'è più luce suffic 
chiatura. 

Al fine tuttavia di mantenere al di sotto di un determinato valore il n 
sioni (al fine di non superare le capacità dello stack, con conseguent 
programma) il programma conterà contemporaneamente il numero di 
variabile globale rekur_zaehl. Se questa è maggiore di REKUR_ M/ 
massimo permesso di ricorsioni (qui 7), si avrà comunque una int( 









Fare attenzione al fatto che, per quanto concerne le ricorsioni, è stata preparata una 
struttura di punto locale completamente nuova ed una struttura diretta locale altrettan¬ 
to nuova nella routine farbintens( ). Infatti le vecchie strutture non dovranno venire mo¬ 
dificate nemmeno dalla recursione. 


Ipotizziamo che la routine ray_trace( ), chiamata ricorsivamente, ritorni al proprio 
posto senza problemi; saremo certi che essa ha determinato il colore del punto sull'og¬ 
getto successivo e lo ha depositato nella struttura del punto. Questa (nuova) struttura 
del punto non è più necessaria. E' solo il valore del colore determinato che dovrà veni¬ 
re inserito in quella vecchia, al fine di poter procedere nei calcoli con esso. Ciò accade 
con la macro COLLET. 


In questa posizione si incontrano di nuovo i due casi (a specchio o non a specchio). 
Ora comincia infatti il calcolo della riflessione specchiata e diffusa. Nel fare ciò, il pro¬ 
gramma tiene conto in un grande loop della luce che ricada eventualmente sull’ogget¬ 
to da tutte le fonti di luce. Sarà però dapprima necessario verificare se il punto da 
calcolarsi viene illuminato o no da ciascuna delle fonti di luce. Può accadere infatti che 
esista un altro oggetto fra il punto e la fonte di luce e che il punto in questione si trovi 
veramente nell’oscurità. 


Dovremo di nuovo calcolare un nuovo raggio, questa volta dal punto alla fonte di 
luce (la fonte di luce viene idealizzata in questa sede, per semplicità, come costituita 
da un solo punto, anche se possiede un raggio). Ci stavamo chiedendo se esiste un 
oggetto che si trovi tra il punto e la fonte di luce, in altre parole, se esiste un oggetto 
che venga intersecato dal raggio diretto alla fonte di luce. 


La risposta a questa domanda ci viene fornita dalla routine globale per il calcolo del 
punto di intersezione successivo schnitt_obj( ), che è già stata descritta in preceden¬ 
za. Il risultato di questa funzione verrà utilizzato questa volta in maniera diversa, infatti 
la routine determinerà in ogni caso almeno un punto di intersezione, cioè quello con 
la fonte di luce vera e propria. Se la routine quindi trova proprio la fonte di luce come 
oggetto di intersezione più vicino, la questione è risolta e il punto non si trova nell'oscu¬ 
rità, per cui può avere inizio il calcolo della formula di riflessione. Se invece la routine 
schnitt_ obj( ) trova un altro oggetto (cosa determinabile dall'indirizzo dell'oggetto che 
ci viene segnalato), il punto si troverà nell'oscurità, cioè non riceverà nessuna luce dal¬ 
la fonte di luce in questione. 


La formula per il calcolo dei due tipi di riflessione ci è già nota. Naturalmente essa 
dovrà venire applicata separatamente per ciascuno dei tre colori di base rosso, verde 
e blu. 


Il programma funziona in questo modo per tutte le fonti di luce. Resta solo la lumino¬ 
sità di sottofondo (luce diffusa) Ih'Koh. Essa ha effetto su ciascun punto e dovrà quindi 
venire aggiunta alla fine. Il colore del punto è completamente determinato e la routine 
termina. 
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plot( ): 

Qui ci troviamo di nuovo nel vecchio loop principale di do_programm(). ray_ 
trace( ) è già superato, e siamo di fronte al coronamento di tutti questi calcoli complica¬ 
ti: plot( ), cioè l'output del punto. E' questo output che ci ha preoccupato a lungo, dal 
momento che eravamo costretti a lavorare con i pochi registri di colore disponibili, an¬ 
che se il colore del punto può venire calcolato effettivamente con una precisione di 
sette posizioni decimali, abbiamo dovuto tenere conto di numerose ombre sullo stesso 
colore e ciononostante dovevamo produrre una immagine il più vicino possibile alla 
realtà. Non nascondo che la soluzione trovata in questa sede non sia necessariamente 
la migliore. Questa routine inoltre è anche l'unica che dovrà venire modificata in caso 
di trasposizione del programma su di un altro computer (eventualmente insieme a init- 
_farben()). Tutte le altre sono state praticamente concepite per un computer ideale 
con molti milioni di colori (contemporaneamente) e con una risoluzione grafica a piacere. 


A questo punto dovremo bene o male spendere una parola sulla memorizzazione 
dei diversi colori, cosa che non abbiamo fatto al momento della presentazione di init- 
_farben( ). Nella parte dati del programma, cioè circa alla fine, abbiamo la possibilità 
di effettuare l'assegnazione dei colori ai registri di Palette. A tale scopo forniamo per 

ogni colore di sfondo dei valori da 0 a 15. In init_farben( ) il programma memorizza 

questi valori nei registri di Palette dell'elaboratore e moltiplica i valori per 2 16 = 65536. 
Ciò ha lo scopo di memorizzare in una variabile intera (INT, a 16 bit), per motivi di velo¬ 
cità, anche le posizioni decimali dei valori dei colore. Contemporaneamente, in init_far- 

ben( ), vengono determinati i rispettivi valori di colore per i colori da 32 a 63, per il caso 
nel quale si sia selezionato il modo EXTRA_ HALFBRITE. Questo formato è natural¬ 
mente solo quello interno al programma, che dovrà venire calcolato all'indietro per l’a¬ 
dattamento all'Amiga. A dire il vero, ciò può sembrare piuttosto complicato e laborioso, 
ma i tentativi con numeri reali (o in virgola mobile, FLOAT) causerebbero un notevole 
rallentamento del programma. 


Osserviamo quindi plot( ). In esso troviamo in x ed y la coordinata dello schermo 
alla quale deve venire posto il punto (per la quale l'origine si trova in alto a sinistra) 
Quindi la struttura di punto viene trasmessa alla funzione, ed è da essa che viene "estrat¬ 
to” il colore esatto del punto. In una prima fase, questa deve venire tenuta ad un valo¬ 
re fra 0 e 1 per R, G e B, dal momento che non può assolutamente accadere che 
vengano determinati valori maggiori in questa fase. Contemporaneamente, la routine 
trasforma i valori in virgola mobile nel formato di colore precedentemente descritto. 
Vediamo quindi che non vengono dimenticate nemmeno le posizioni decimali. 


Il passo seguente è un po' più complesso. In esso si ricerca infatti il registro di Palet¬ 
te che si avvicina più degli altri al colore del punto. A tale scopo l'elaboratore esamina 
tutti i colori disponibili (32 o 64) ed individua i due registri per i quali la differenza fra 
il colore del registro ed il colore reale del punto è la minore (reg _ min) o è la seconda 
in una graduatoria delle minori (zweit_reg_min). 


Normalmente diremo: reg _ min è il registro che contiene il colore che si avvicina 
di più al colore del punto, per cui il punto da tracciare dovrà ricevere il colore da 
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Normalmente diremo: reg _ min è il registro che contiene il colore che si avvicina 
di più al colore del punto, per cui il punto da tracciare dovrà ricevere il colore da reg- 
_ min. In teoria avremmo ragione, ma verificheremo ben presto, se andiamo a control¬ 
lare di persona, che ogni oggetto presenta delle fasce molto sgradevoli, che si formano 
nel punto in cui un registro di colore viene cambiato in un altro. Ciò è dovuto al fatto 
che il nostro occhio non è in grado di riconoscere chiaramente la differenza fra la inten¬ 
sità nr. 13 di rosso e l’intensità nr. 12 di rosso. 


La soluzione a questo effetto sgradevole delle zone di confine è quella di "sfrangia¬ 
re" i campi con colore rosso 12 e rosso 13, per rendere dolce il passaggio da uno 
all'altro. Ciò può venire ottenuto con una piccola funzione casuale zufall( ). Ad ogni sua 
chiamata, essa produce un numero (apparentemente) casuale fra 0 e 256 ($00-$FF). 
L'entità di questo numero determina se il punto deve venire tracciato con rosso 12 o 
rosso 13. Quanto più ci siamo spinti nel campo di rosso 13, tanto più diminuiranno 
le probabilità per rosso 12, e viceversa. Ciò viene ottenuto con la seguente piccola 
formula nell'istruzione IF: 


gz = z + - wk 

(zs-es) 

es = differenza colore fra il colore più adeguato e il colore esatto del punto 

zs = differenza colore fra il secondo colore più adeguato e il colore esatto del punto 

mz = entità massima del numero casuale (in questo caso 256) 

wk = correzione di pesatura 

z = numero casuale (da 0 a mz) 

gz = numero casuale pesato (da 0 a 2 * mz) 


"es" e "zs" sono già stati determinati dalla routine con il registro migliore e con quello 
immediatamente successivo, mz è uguale a 256 (più propriamente, uguale a 255) che 
è il numero casuale massimo permesso, z è il numero casuale stesso, che viene fornito 
come è noto da zufall( ). Si è introdotta anche la "correzione di pesatura" wk, al fine 
di spostare la probabilità di un colore nella direzione del primo colore, wk determina 
anche l'ampiezza del campo "sfrangiato", gz è in conclusione il numero casuale pesa¬ 
to tramite la formula, che si stava ricercando, che dovrà trovarsi tra 0 e 512. 

Se gz è maggiore di 255, verrà scelto il colore più vicino, se gz è < = 255, verrà 
utilizzato il secondo colore più vicino. Il risultato sarà una immagine a punti, cosa che 
è tuttavia quasi inevitabile (se non aumentando la risoluzione, per es. tramite Interlace). 
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In Fig. 6.9 è possibile rivedere uno schema generale del programma di Ray-Tracing. 



Fìg. 6.9 Diagramma di flusso di un programma di RayTracing 


Cosa resta? Naturalmente la modifica del mondo, cosa altro? Nel nostro mondo è 
molto più semplice che non nella realtà. Osserviamo i campi dati alla fine del program¬ 
ma, nei quali troviamo tutte le informazioni necessarie per lo scenario, cominciando 
con i colori di Palette, attraverso i valori dell'osservatore fino alle fonti di luce, sfere e 
superfici. La funzione dei diversi parametri dovrebbe già esserci nota dalle analisi teo¬ 
riche svolte in precedenza. Resta da provare quali effetti risultino nella pratica dalle 
più svariate combinazioni. Con l’andare del tempo ne acquisiremo anche la sensazione. 
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Cominciamo dagli oggetti più semplici. Nel caso in cui si avesse invece in mente 
di tracciare uno scenario completo, sarà meglio munirsi di carta e penna. Consiglio 
per una prova: modifichiamo il colore 1 del piano del tavolo a righe gialle e nere, tra¬ 
sformandolo in bianco, impostando contemporaneamente "VERSPIEGELT” (a spec¬ 
chio) con una intensità di specchiatura del 60-70% (0,6-0,7). L’effetto somiglierà a quello 
di una superficie di tavolo perfettamente lucida, nella quale si specchiano gli oggetti, 
ma nella quale è ancora riconoscibile anche il motivo di righe. Ad ogni modifica del 
mondo sarà tuttavia necessario tenere presente quali colori sono possibili con la Palet¬ 
te dei colori impiegata in quel momento. Se si vuole per es. aggiungere un oggetto 
verde e la Palette non contiene il verde, la routine plot( ) sceglierà un altro colore qua¬ 
lunque, che riterrà adeguato. Lo stesso vale per ombreggiature ecc. Nel caso in cui 
l'immagine a colori che si è prodotta non ci soddisfi, occupiamoci prima di tutto della 
Palette dei colori. Questo punto riveste un ruolo importante anche se si lavora in HAM. 


Ciò che manca ancora in questo programma è una funzione che traduca in strutture 
di programma un file di definizioni in ASCII. Attualmente, per ogni modifica del mondo, 
è necessario ricompilare e linkare. Nell’altro caso invece sarà necessario apportare una 
sola modifica al file ASCII, tramite il buon vecchio ED, e trasferire il file al programma. 


Sarebbe pensabile anche un piccolo editor grafico, tramite il quale posizionare sullo 
schermo gli oggetti come se fossero modelli in filo metallico. Solo dopo potrebbe veni¬ 
re chiamato il programma vero e proprio di Ray-Tracing. 

Diversamente potremo aggiungere nuovi oggetti, nuove strutture di superfici, oppu¬ 
re inserire una routine in farbintens( ), che modifichi il vettore della normale secondo 
determinati criteri. Con ciò potremmo simulare una superficie ruvida o accidentata ecc. 
Non c'è nessun limite alla nostra fantasia! 

Al lavoro quindi, e buon divertimento! 


6.5 Corpi trasparenti oppure: legge di rifrazione 


Esiste un'altra caratteristica possibile dei corpi, della quale non ci siamo ancora oc¬ 
cupati: la trasparenza. Gli oggetti in vetro o plexiglas ecc. possono essere trasparenti. 
E’ possibile vedere cose che si trovano dietro questi oggetti. A seconda del grado di 
trasparenza e dello spessore dell’oggetto trasparente esse potranno apparire lattigino¬ 
se oppure nitide, chiare come nell’originale oppure più scure. Se un oggetto è traspa¬ 
rente solo per determinati colori (es. vetro azzurro), gli oggetti posti dietro di esso 
appariranno solo nella parte di colore che viene lasciata passare (azzurro). 

Anche quando una cosa è perfettamente trasparente per la luce al cento per cento, 
il nostro occhio è in grado di riconoscerla. Ciò dipende dalla cosiddetta rifrazione della 
luce. Quando un raggio di luce penetra da un mezzo (aria) in un altro mezzo (vetro 
o acqua ecc.), la sua direzione si modifica. Risparmiamoci di analizzarne la motivazio¬ 
ne, che ha a che vedere con la meccanica dei quanti, e prendiamolo come dato di fatto. 
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A causa di questa rifrazione della luce, può accaderci di vedere, dietro un oggetto 
trasparente, delle cose in una posizione, mentre si trovano in una posizione compieta- 
mente diversa. Immergiamo per es. una asticella in un bicchiere di acqua. Ci sembre¬ 
rà che l'asticella sia leggermente piegata nel punto in cui essa entra nell'acqua. Lo 
stesso principio viene utilizzato anche per le lenti dei binocoli o dei fotobiettivi. 


Quindi la luce modifica la propria direzione quando entra in un oggetto trasparente. 
Inoltre essa modificherà altrettanto la propria direzione quando ne esce. La legge fisi¬ 
ca che descrive questo fenomeno viene chiamata legge di rifrazione ed è la seguente 
(ved. Fig. 6.10): 

n, * sin(a-,) = n 2 * sin(a 2 ) 

n,,n 2 indici di rifrazione dei due mezzi (costanti del materiale) n,,n 2 s1 
a, angolo di incidenza fra la normale h e il raggio in entrata § 

a 2 angolo di calcolo tra la normale n ed il raggio rifratto Sb 



Se un raggio di luce entra in un mezzo otticamente spesso (es. vetro, indice di rifra¬ 
zione elevato), proveniendo da un mezzo otticamente sottile (es. aria, dotata del più 
basso indice di rifrazione, n, è circa uguale a 1), il raggio rifratto avrà, nel secondo 
mezzo, un andamento quasi verticale (n, <n 2 = > a 2 <a-|). Nel caso contrario, al pas¬ 
saggio da un mezzo otticamente spesso ad uno otticamente sottile, esso sarà molto 
lontano dalla verticale (n, >n 2 = > a^a,). In quest'ultimo caso può anche aggiun¬ 
gersi il fatto che a2 sia uguale a 90° (sin(a 2 ) = 1). Dal momento in cui il seno non può 
essere maggiore di 1, nel caso di a 2 maggiore di 90 si giungerà ad una riflessione to¬ 
tale (specchiatura) del raggio all’indietro nel mezzo più spesso (quindi nessuna rifrazione). 

C'è ancora una cosa da considerare: non tutta la luce che arriva al confine tra due 
mezzi entra nel secondo mezzo (e viene quindi rifratta). Una parte di essa, infatti, viene 
riflessa normalmente, come abbiamo già visto per i corpi normali. Maggiore è l'angolo 
di incidenza al, maggiore sarà anche il quantitativo di luce che viene riflesso. Con 














a, =0 (ingresso verticale) anche la riflessione è uguale a 0. E' possibile osservare que¬ 
sto effetto anche nei nostri oggetti di uso quotidiano: in un vetro di finestra si specchia 
quasi tutto, per cui è solo a fatica che riusciamo a guardare dentro. Tuttavia, quanto 
più perpendicolarmente guardiamo verso il vetro, tanto minori diverranno le specchia¬ 
ture di disturbo. 


Un corpo trasparente presenta, come ogni altro corpo, anche delle riflessioni a spec¬ 
chio e diffuse. La dimensione della riflessione dipenderà quindi dall’angolo di inciden¬ 
za della luce. 


Possiamo ampliare il nostro modello di illuminazione, aggiungendo ad esso questa 
legge di rifrazione della luce in caso di corpi trasparenti. Il raggio dello sguardo dovrà 
venire deviato secondo le regole della legge di rifrazione (tenendo conto eventualmen¬ 
te anche della riflessione e della riflessione totale sia per il raggio della vista che per 
eventuali fonti di luce) per penetrare nel corpo. Per la sua uscita dovremo te'nere conto 
delle stesse regole. A questo punto, il raggio ripetutamente deviato a seconda delle 
situazioni, potrà venire tracciato normalmente come un normalissimo raggio luminoso. 
In tal modo sarà possibile simulare per es. lenti di ingrandimento o di riduzione o simili, 
al fine di ottenere effetti speciali. 
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CAPITOLO 7 


Un’altra applicazione: 
Solidi di rotazione 





Questo capitolo si occupa di una semplice ma molto interessante applicazione della 
grafica tridimensionale. Conosciamo già alcuni aspetti dai capitoli precedenti, e nel pre¬ 
sente troveremo ulteriori suggerimenti ed ampliamenti. 


Ci occuperemo dei cosiddetti solidi di rotazione. Si tratta parzialmente di immagini 
complicate, tuttavia relativamente semplici da costruire e di conseguenza applicabili 
in molti sistemi tridimensionali. 


7.1 Cosa sono i solidi di rotazione? 


Finora ci siamo occupati della rappresentazione tridimensionale di corpi relativamente 
semplici. Ciò dipendeva principalmente dal fatto che l'input di molti punti angolari e 
di molte linee è piuttosto laborioso. Di conseguenza, le immagini rappresentate erano 
spesso piatte e spigolose, in quanto l'implementazione di corpi curvi (a prescindere 
dalla tecnica di Ray-Tracing) crea numerosi problemi in relazione al numero di angoli 
e lati. 


Qui invece introdurremo una tecnica che rende possibile in maniera molto più sem¬ 
plice la produzione di tali corpi rotondi. Limitiamoci tuttavia ai cosiddetti solidi di rota¬ 
zione simmetrici sull’asse, cosa che non rappresenta una limitazione particolare, in 
quanto potremo combinare tali corpi rotondi con qualunque corpo angolare. 


Il trucco sta nel fatto che verranno immessi solo pochi punti ben determinati, mentre 
il resto verrà calcolato dal programma sulla base di una regola di calcolo per i solidi 
di rotazione. 



I 

Asse di rotazione 


Fig 7.1 Generazione di un solido di rotazione 
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L'input dei punti necessari ha luogo in un sistema di coordinate bidimensionali, cioè 
sul piano x-y con z = 0. In tal modo è possibile creare un’immagine a piacere con un 
numero di punti a piacere riprodotta ripetutamente. Ogni punto è collegato con il suo 
precedente da una linea (vedi Fig. 7.1). Nel caso più semplice, collegheremo sempli- 
cente due punti l'uno all'altro. 

Al fine di superare la bidimensionalità del piano, lo ruoteremo attorno all'asse y di 
un angolo a piacere, non troppo grande né troppo piccolo, per cui ogni singolo punto 
e ogni singola linea del piano verranno ruotati. Le nuovi posizioni dei punti vengono 
annotate, come accadeva per le vecchie posizioni, in un elenco dei punti. Anche le 
linee devono venire memorizzate. Il passo successivo è quello di ruotare un'altra volta 
quest’ultimo piano dello stesso angolo. I punti e le linee derivanti vengono di nuovo 
memorizzati ecc. Questa operazione viene ripetuta varie volte, finché non viene com¬ 
pletata una rotazione completa di 360°. Il risultato ha l'aspetto di un corpo rotondo, 
approssimato dalle molte rotazioni. 

Ora, se ogni punto ruotato viene collegato con il proprio punto originale, il corpo 
sarà composto da molti piccoli poligoni rettangolari. Quanto più saranno piccoli tali po¬ 
ligoni, tanto più rotondo apparirà l'oggetto. 

Generiamo quindi un elenco di superfici dall'elenco dei punti e delle linee. Tutti gli 
elenchi vengono collegati fra loro in un oggetto, che noi potremo manipolare esatta¬ 
mente come un oggetto tridimensionale normale, come abbiamo già visto: l’oggetto 
potrà a sua volta essere in scala, spostato, ruotato o proiettato. Superfici potranno co¬ 
prire altre superfici ecc. 

L’unico problema è quello di riservare uno spazio di memoria sufficiente, dal mo¬ 
mento che il numero dei punti, linee e superfici viene continuamente sommato. Se w 
è l'angolo per la produzione di un solido di rotazione da un piano, e P è il numero 
dei punti nel piano, per il numero dei punti, linee e superfici da memorizzare varrà 

Punti: Pges = 360/w * P 

Linee: Lges = 360/w * (2*P-1) 

Superfici: Fges = 360/w * (P-1) 

w dovrebbe essere sempre un divisore di 360°, diversamente il quoziente 360/w 
dovrà venire arrotondato. Con un angolo di rotazione di 10° con solo 6 punti di defini¬ 
zione su un piano, avremo: 

Numero dei punti: Pges = 216 

Numero delle linee: Lges = 396 

Numero delle superfici: Fges = 180 
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7.2 Applicazione per grafici tridimensionali 


Il seguente programma in Basic produce un solido di rotazione che dovremo edita¬ 
re, e ce lo presenta completamente trasformato, proiettato con superfici nascoste sullo 
schermo. In esso inoltre si tiene conto anche di una fonte di luce, la cui posizione è 
selezionabile a piacere. Vediamolo subito: 



Fig. 7.2 Solido di rotazione 1 


*********** *********.*.««> 4 4 I 
* * * * * 

’ Solidi di Rotazione • * 
• ** ♦ * 

• ******************** ****** 


'Calcolo fabbisogno memoria 

'Impostazione valori massimi a seconda della memoria disponibile 
DATA 15, 45 


READ MAX.ECKPX 
READ MAX. RC'TS!< 


’N.ro max. dei pC uriti angolari 
’N.rc* max. delle rotazioni 


•Fabbisogno memoria per matrici superfici: 

-a .flaechS. * MAX.ROTSX ♦ <MAX. ECKPZ-1 ) ♦ 26 

• Fabbisogno memoria per matrici punti: 

*-a .punkteà = MAX. ROTS>£ * MAX.ECKPX * 24 
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'Fabbisogno totale di'memoria: 

speicherl = max.flaech& ♦ max.punkte& ♦ 30000 


IF FRE ( -11 + FRE <0 > <= speicherS, ♦ 64000& THEN 
PRINT "Spazio mem. insufficiente!!!” 

PRINT : PRINT "Spazio necessario ora:" 
PRINT "per Punti: "smax.punkteX 
F'RINT "per Superf.: ";max.flaechX 
PRINT "totale: ":speicherX : PRINT 

PRINT "Delimitare nel programma i valori 
PRINT "per il numero dei punti angolari e/o" 
PRINT “il numero delle rotazioni" 


massimi 


PRINT : PRINT "Valori Massimi attuali per: 
PRINT "Punti ang.: ";MAX.£CKPX 
PRINT "Rotazioni: "sMAX.RCiTSX 
END 

END IF 


' Riserva memoria: 

CLEAR ,speicherfc 
RESTORE 

READ MAX.ECKPX 'Numero max. di punti angolari 

READ MAX.ROTSX 'Numero max. di rotazioni 

PI = 3.141593 


'Apertura nuovo schermo con finestra 

anz.farbenX = 16 

SCREEN 2,6.40,200,4.2 

wxX = 631 

wyX « 186 

WINDOW 2,"Solidi di rotazione".(0»0)-<wxX,wyX),4+8,2 




blauf = 0 
gruenf = 0 
rotf = 1 
blauadd - .1 
gruenadd » . 1 
rotadd = 0 


'Fattore blu 
‘Fattore verde 
'Fattore rosso 
'Aggiunta di blu 
'Aggiunta di verde 
'Aggiunta di rosso 


'Assegnazione colori: 

FOR i=2 TO anz. farbenX-1 

farbe = INT(i*100/15 ♦ .51/100 
rot = farbe*rotf+rotadd 
gruen = f arbe*gruenf «-gruenadd 
blau • farbe*blauf*blauadd 
IF rot>1 THEN rot=l 
IF gruen>l THEN gruen»1 
IF blau>l THEN blau=l 

PALETTE 1 ,rot,gruen.blau 
NEXT i 






PALETTE 0,0,0,0 'Sfondo nero 

PALETTE 1,1,.8,.13 'Colore cornice 

' Parametri di trasfromaiions di Start 
' Scala 

ex = 1 : sy = 1 : sz = 1 

' Traslazione 

tx = 0 : ty = 0 : tz = 0 

' Rotazione 

rx • 10 : ry = 0 : ri « 0 
' Osservatore 

bx « 0 : by * 0 : bz - 3000 
' Fonte di luce 

lq.xS. = 900 : lq.yà = 1000 : lq.z!< = -500 

' Intensità'"luce/di superficie 
li.int = .7 s fi.int = 1 s hin.int » .3 

' Traslazione di un piano 

tex = INT<wxJC/2> : tey « INT(wyX/2> 

' Messa in scala di un piano 
sex » 1 s sey = 1 

' Numero di Start delle rotazioni per solido 
anz.rotsX = 8 

' Trasformazione angolo rotazione in RAD: 

rx » rx*PI/180 : ry = ry*PI/180 : rz = rz»PI/180 

‘Valore incremento rotazione (Gradi): 
dig « 10 

di = PI * dig/180 'Trasformazione in RAD 

'Incremento- osservatore: 
bine = 100 

POKE WINDOW (3)+27, 1 'Colore dell Area-Outl ine-F'en 

flags = WINDOW(8)+32 

POKEW flags,PEEKW(flags) OR 8 'Impostaz. del1'Area-Outline-Flag 

'Determinazione solido di rotazione, preparazione 
'in matrici dei dati oggetto e 
'definizione delle seguenti matrici: 

' xr ( ) , yr ( ), zrO 
’xe(),ye(),ze() 

'fldX <,) 

'flzX(,) 
sort. fXO 
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Coordinate dei punti dello spazio 
Coordinate trasformate 
Definizioni superfici 
superfici da tracciare 
Indici selezionati delle superfici 






r 


'mit.z< ) 

'farben<) 


- Valori z medi di matrice delle superf. 

- Intensità* colori di tutte le superf. 
da tracciare. 


get.rotkoerper(-1) 


'Loop principale: 
» ***********:***** 


flag%=0 

WHILE flagXOl 

IF f 1 ag>£<>-999 THEN 


transform 

verdecke 

Pro jekt ion 

END IF 


'Trasformazione di tutti 1 punti 
'Filtraggio superfici nascoste 
'<e determinazione colori) 
'Proiettare tutti i punti 


CLS 'Cancellazione finestra 

PATTERN &HFFFF 'Motivo di linee = a zig zag 


'Disegno oggetto 
FOR i=0 TO afzX -1 

flaech .nrX - sort.fJ<<i) 

FOR k = 0 TO' 3 

punkt.nrJC = flz3C ( flaech.nrX, k) 
xX = tex ♦ sex*xe(punkt.nrX) 
yX - tey - sey*ye<punkt. nrX) 

IF xX<0 THEN xX - 0 

IF xX>=»xX THEN xX = hxX-1 

IF yX<0 THEN yX = 0 

IF yX>=HyX THEN yX = wytt-l 


‘Tutte le superfici 

'Nr. superfici da tracciare 

'Tutti i punti angolari della superf. 

'Numero punto 

'Coordinate del punto 


AREA ( xX r yX) 


NEXT k 


COLOR INTCfarte(flaech. nrX)* 14 )*2 'Impostazione valore colore 
AREAFILL 0 'Tracciatura superficie 

NEXT i 

mausX = 0 : flag%=0 
WHILE mausXOl AND flagX = 0 

SLEEP 'Attesa evento 

'Assunzione delle coordinate del Mouse 
'come nuove coordinate del punto zero 
maus%=MOUSE(0) 


307 







IF mausli=l THEN 
tex = MOUSE(3) 
tey = MOUSE(4) 

flagli * -939 'Flag per solo disegno 
END IF 


chli = ASC(INKEY*+CHR*(0)) 

IF ch>:=31 THEN 'Cursore 
rz=rz-di 
flagli = -1 
END IF 

IF chli = 30 THEN 
rz 3 rz+di 
flagli = -1 
END IF 

IF chX*28 THEN 
rx=rx-di 
flagli = -1 
END IF 

IF ch%=29 THEN 
rx c rx+di 
f 1 agli » -1 
END IF 

IF chli=127 THEN 'Del => limitazione superfici si/no 
POKEW flags,PEEKW < fiags) XOR 8 
flagli = -999 'Flag per solo disegno 
END IF 

IF ch!i=43 THEN 
sx = sx+.1 
sy = sy+.1 
sz = sz+.1 
flagli = -1 
END IF 

IF chli=45 THEN 
sx = sx—•1 


sinistra = > 

'diminuzione angolo rotazione asse z 
'Flag per - nuovo disegno 

'Cursore a destra = > 

'incremento angolo rotazione asse z 
'Flag per nuovo disegno 

'Cursore in alto => 

'diminuzione angolo rotazione asse x 
'Flag per nuovo disegno 

'Cursore in basso => 

. 'incremento angolo rotazione asse x 
'Flag per nuovo disegno 


-> scala verso l'alto 


'- => scala verso il basi 


sy = sy-.l 
sz = sz-•1 
flagli = -1 
END IF 

IF chli=56 THEN '8 => al lontanamerito osservatore 
bz * bz-binc 
fi agli = -1 
END IF 

IF chli=50 THEN '2 => avvicinamento osservatore 
bz « bz+binc 
fi agli = -1 
END IF 

IF chli=139 THEN 'Help => Rotazione = 0 
rx ■ 0 
ry » 0 
rz » 0 
fi agli « -1 
END-IF 

IF chli=27 THEN 'Esc => nuova determinazione dell'oggetto 
get. rotlcoerper (0) 
fi agli * -1 


308 




END IF 

IF ch%=129 THEN 'FI => modifica numero rotazioni 

LOCATE 1,1 : PRINT "Nuovo input numero di rotazioni:" 
PRINT "Numero attuale di rotazioni: ";anz.rotsX 
PRINT "Nuovo numero di rotazioni: "j: INPUT anz.rotsX 

IF anz.rotsK > MAX.ROTS% THEN 
anz.rots* = MAX.R0TS2 
PRINT 

PRINT "Numero troppo alto! E’ stato scelto il" 

PRINT "valore massimo permesso ": MAX.ROTSX?"" 

END IF 


get. rotkoerper ( 1 ) 
flagX = -1 
END IF 

IF ch>:*S THEN ‘Tasto 
'Rotazione parametri 


zwis 

rotf 

gruenf 

bl auf 

zwis 

rotadd 

gruenadd 

blauadd 


rotf 
gruenf 
b 1 auf 
zwis 
rotadd 
gruenadd 
b1auadd 
zwis 


indietro 

colore: 


s > cambio colore 


'Attribuzione colori: 

FOR i =2 TO anz. farben/I- 1 

farbe = INT(i*100/15 ♦ .5)/100 
rot = farbe*rotf♦rotadd 
gruen = farbe*gruenf^gruenadd 
blau a farbe*blauf♦blauadd 
IF rot>l THEN rot=l 
IF gruen>l THEN gruen=l 
IF blau>1 THEN blau=l 

PALETTE i,rot,gruen,blau 
NEXT i 
END IF 

'Se finestra chiusa -> Fine 
IF WINDOW(7)=0 THEN 
flagri 
END IF 


WEND 

WEND 

WINDOW OUTPUT 1 
SCREEN CLOSE 2 


END 



'Calcolo del solido di rotazione: 


SUB get. rotkoerper (flagri) STATIC 
* flag!£ = “1 : Prima chiamata 

' fl’ag V. = 0 : Input completamente nuovo del solido 

' flag* « 1 : Ora ricalcolare il solido 

SHARED anz.rots*/., MAX.RGTS*, MAX.ECKP* 

SHARED wx*, wy*, PI 

IF flag* = 0 OR flag* = -1 THEN 

GOSUB edit.koerper 'Editaggio solido 

END IF 

PRINT : PRINT "Attendere, sto calcolando" 

' Dimensionarpenti e di chi a razioni : 

IF flag*<>-l THEN 

ERASE xr, yr, zr. xe. ye, ze 
ERASE fldX, flz%, sort.fX, mit.z, farbe 
END IF 

'Coordinate dei punti: 

SHARED apX 


apX - anz.rotsX * ecken* 'Numero di tutti i punti 

DIM SHARED xr (apX-1) ,yr (ap»l) ,zr (apX-1) 

DIM SHARED xe(apX-1),ye(apX-1),ze(apX-l) 

'Definizioni delle superfici: 

SHARED afd*, afz% 

*fd% = anz.rotsX * <eckenX-1) 'Numero di tutte le superfici 
afzX = afd* 'Numero della superfici da disegnare 

DIM SHARED fld*<afd%-1,3),flz*(afz%-1,3) 

DIM SHARED sort. f*<afz*-l ) , mit. z <»fz5C-l ) 

DIM SHARED farbe<afz*-1> 


'Determinazione di tutti gli altri punti e superf. 

FOR i=0 TO eckenZ-1 

xr(i) = xrotZ( i)-INT(wx*/2) 'Trasferimento coordinate angolo 

yr < i ) = INT ( wy*/2)-yrot* ( i ) ‘nella matrice del punto spaziale 
zr <i) = 0 
NEXT i 


ap.X = eckenX : alt* = 0 

afd.% = 0 

ine.w = 2*PI/anz.rotsX 


‘Calcolo incremento angolare 
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punti finali 


'Calcolo del solido di rotazione: 

FOR M=inc.M TO 2*PI ♦ ine. w/5 STEF' inc.w 
IF ap.X = apX THEN 

ap.X - 0 'Punti iniziali = 

ELSE 

si = SIN(w) i co = COS(w) 


■Rotazione del piano 
FOR i=0 TO eckenX-1 
x = xr ( i> 

,z = zr <i> 
xr(ap.X+i) = x*co 
yr(ap.X+i> = yr(i> 
zr (ap.X*i> = -x*si 
NEXT i 
END IF 


di definizione: 

'Coordinate prima riga 
z*si‘ruotare attorno all'asse 
+ z*co 


y 


'Costruzione superfici: 
FOR i=0 TO eckenX-2 


UtX* i 


fldX(afd.X*i,0) 
fldX(afd.X+i,1) = altX+i+1 
fldX(afd.X+i.2) = ap.X*i*l 
fldX(afd.%♦i,0) 

NEXT i 


'Memorizzazione numeri 


ap.X♦i 


punt i 


altX = ap.X 

ap.X = ap.X ♦ eckenX 

afd.X = afd.X ♦ ecfcenX-1 

NEXT w 


EXIT SUB 

' Editaggio contorni del solido di rotazione 
edit.koerper: 

IF flagXO-1 THEN 
ERASE xrotX, yrotX 
END IF 

DIM xrotX(MAX.ECKPX-1). yrotX(MAX.ECKPX-1) 
eckenX = -1 
GOSUB zeichne 


WHILE (chX<>27 OR eckenX<=0> 
SLEEP 

inausX = MOUSE (0) 

IF mausX=1 THEN 

eckenX = eckenX*1 
IF eckenX >= MAX.ECKPX GOTO 

xrotX(eckenX) = MOUSE(3) 
yrotX(eckenX) = MOUSE(4) 


'Fine con ESC 
'Attesa evento 

'Tasto Mouse premuto 

rotraus 

'Annotazione coordinate Mouse 
'come punto angolare di rotazione 
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IF eckenX=0 THEN 

PSET <xrotZ<0>, yrotX<0>) 'Posizionamento cursore grafico 
ELSE 'oppure: tracciatura di riga 

LINE - (xrotli (eckenX) , yrotX (ecken%> ) 

END IF 
END IF 

ck!>: = ASC(INKEY$+CHR$ (0) > 'Prelevamento tasto 

IF chX=127 AND eckenX>=0 THEN 'Del=>cancelIasione ultimo punto 
eckenX = ecken/i-1 
GiOSUB zeichne 
IF eckenX > 0 THEN 

FOR 1 = 0 TO eckeri5i-l 'nuovo disegno: 

LINE (xrotZ(i), yrotM ( i ) ) - (xrotX < i ♦ 1 ) , yrotJC ( i +1 > > 

NEXT i 
ELSE 

IF eckenX = 0 THEN PSET <xrotX<0), yrotX<0>> 

END IF 
END IF 

IF WINDGW (7) =0 THEN 'Chiusura finestra 

WINDOW OUTPUT 1 
SCREEN CLOSE 2 
END 
END IF 

WEND 

rotraus: 

eckenM = eckenK + 1 
RETURN 

zeichne: 

CLS 

COLOR 10 

LOCATE 1,22 : PRINT "Input contorni di un solido di rotazione" 

'Tracciatura del sistema di coordinate: 

PATTERN S.HF0F0 

COLOR 15 

LINE (0,wyX/2)-(wxX,wyM/2) 'Asse di rotazione 

LINE (wxX/2,0)-(wxX/2,wyX) 

PATTERN &HFFFF 

COLOR 1 
RETURN 

END SUB 


'Trasformazione di tutti i punti nello spazio: 
SUB transform STATIC 
SHARED apX 

SHARED sx,sy,sz,tx,ty,tz,rx,ry,rz 
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1 Calcolo delle 
si-x = SINirx) 
si.y = SIN(ry) 
si.z = SIN(rz) 


costanti per la rotazione: 
: co.x ~ COS(rx> 

: co.y - COS<ry) 

: co.z - COS(rz) 


A = co.y * co.z 
B = co.y * si.z 
C = -si.y 

D = si.x*si.y*co.z - co.x»si.z 
E * si.x*si.y*si.z + co.x*co.z 
F = si.x*co.y 

G « co.x*si.y*co.z ♦ si.x*si.z 
H = co.x*si.y*si.z - si.x*co.z 
J = co.x*co.y 


FOR i'O TO apX-1 
‘ Trasformazioni : 
xt = sx*xr(i) ♦ tx 
yt = sy*yr(i) + ty 
zt = sz*zr <i) + tz 

xe<i) * xt*A + yt*B + zt*C 

ye(i) » xt*D ♦ yt*E + zt«F 

zeli) - xt*S + yt*H ♦ zt*J 

NEXT i 


'Scala 

'e traslazione 


’Rotazioni 


END SUB 

•Proiezioni di tutte le coordinate dello.spazio nel Piano: 
SUB projektion STATIC 
SHARED apX 
SHARED bx.by.bz 

FOR i=0 TO apX-1 

• Proiezione centrale: 
zwis “ ze ( i ) " t*z 

xe(i) - bx - bz * (xe<i)-bx)/zwis 
yèti) = by - bz * (ye(i)-by)/zwis 
NEXT i 
END SUB 


Filtraggio di itutte le superfici coperte 
ed ordinamento dei valori z medi: 

S'JB verdecke STATIC 
SHARED afdX, afzX 
SHARED bx.by.bz 


afzX. = 0 

FOR i = 0 TO afdX-1 


'Numero 


delle superfici da tracciare 
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'Fase 1: analisi del retro della superficie: 
• ************* ***♦**#**♦**:*******♦*♦***♦♦♦♦ 


'Determinazione di due vettori 
'1inearmente della superficie: 
•v = P2-P1 // w = P3-P1: 

'con: P1,P2,P3 * Punti angolari 
PIE = fld%(i,0) 

P2X * fldXti,1) 

P3% = fidati,2) 

Pl.x = xe(Pitti 
PI. y * ye (Pitti 
Pl.z = ze(Pitti 


V. X 

= 

xe(P2:<> 

- Pl.x 

V. y 

= 

ye (P2XÌ 

- Pl.y 

v. z 

■ 

ze(P2:-:> 

- Pl.z 

w. X 

= 

xe(P3 •/.) 

- Pl.x 

w. y 

= 

ye(P3X> 

- Pl.y 

w. z 

» 

ze(P3X) 

- Pl.z 


indipendenti 


della superficie 


'Determinazione del prodotto vettoriale p - v x 
p.x c v.y*w.z - v.z^w.y 
p.y = v.z*w.x — v.x*w.z 
p.z = v.x*w.y ~ v.y*w.x 

'Vettore dello sguardo s da 11'osservatore a PI: 
s.x = Pl.x - bx 
s.y * PI-y ~ by 
s.z - Pl.z - bz 


•Calcolo del prodotto scalare q = p * s: 
q * p.x*s.x + p.y*s.y ♦ P.z*s.z 


'Controllo del segno di q: 

IF q>0 THEN 

'Identificazione superficie come visibile: 
sum.z c 0 
FOR k = 0 TC> 3 

fIzZ(afzX,k> = fldXii.k) 'Trasferimento defin. superf. 
sum.z « ze(fldXCi,k>) ♦ sum.z 'formazione della somma z 
NEXT k 




G09UB farbe 'Calcolo valore colori delle superf. 

'Fase 2: ordinamento valori medi z 

•Ut************************* 1 ******* 

'Memorizzazione nella matrice z del valor medio z 
mittel = sum.z / 4 
mit.z(afztt) = mittel 

'Ordinam. in matrice sort indice di superf. secondo il valor medio z 
k = 0 


. 
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■Ricerca punto di ordinamento: 

WHILE (mittel <= mi t. z < sort. f V. ( k) ) AND k < afzX) 
k=k +1 
WEND 

IF k <= afzZ THEN 

‘Spostamento a partire dal punto di ordinamento: 

FOR m=afzX TO k STEP -1 
sort.f% <m +1) = sort.fX(m) 

NEXT m 
END IF 

sort.fX(k) « afzX 'Annotazione Indice x della superficie 
afzX = afzX*l ‘Aumento numero superfici visibili 


END IF 
NEXT i 


'Prossima superficie 


EXIT SUB 

'Calcolo intensità' colore superficie: 
farbe: 

SHARED lq.xà, lq.ySn ld.z& 

SHARED li.int, fi.int, hin.int 

• Vettore dal punto della superf. alla fonte di luce: 
L.x » Pl.x - lq.xà 

L.y • Pl.y - lq.y*< 

L.Z « Pl.Z - lq.Z& 


‘ Intensità' della luce incidente: 

cos.a = (p.x*p.x + p.y*p.y + p.z*p.z> 

cos.a = cos.a * (L.x*L.x + L.y*L.y + L.z*L.z> 

cos.a « (p.x*L.x + p.y*L.y + p.z+L.z) /SQR (cos.a) 


farb « hin.int*f1.int 
IF cos.a < 0 THEN 

farb - farb - 1i.int*f1.int * 
END IF 

farbe(afzM) = farb - INT(farb) 
RETURN 


Intensità' sfondo 
Superf. rivolta alla luce? 
cos.a ' SI! determinazione 
' incidenza luce 
solo fra 0 e 1 ! 


END SUB 
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Fig. 7.3 Solido di rotazione 2 


Mettiamoci al lavoro: si tratta di nuovo di un programma con il quale potremo lavora¬ 
re in maniera veramente creativa. Infatti non ci troviamo ad essere solo spettatori, ben¬ 
sì viviamo questa esperienza insieme con il nostro computer. Quando lanciamo il 
programma appare uno schermo quasi vuoto, nel quale è presente solo un sistema 
di coordinate bidimensionale con assi x ed y ed una scritta: "Input dei contorni di un 
solido di rotazione". Questo è il punto nel quale potremo definire tramite il mouse i pia¬ 
ni di contorno del solido di rotazione. La linea verticale marca contemporaneamente 
la posizione dell'asse di rotazione, attorno al quale tutti i punti da noi immessi verranno 
in seguito ruotati passo passo, al fine di produrre il solido di rotazione (vedi sopra). 


Portiamoci quindi con il mouse su di un punto a piacere dello schermo (possibilmen¬ 
te non troppo lontano dall’asse di rotazione) e premiamo il pulsante sinistro del mouse. 
Apparirà un punto. Spostiamo il mouse a piacere e premiamo di nuovo il pulsante del 
mouse. Il programma traccerà immediatamente una linea dal primo al secondo punto. 
Continuiamo in questa maniera finché non avremo marcato e collegato 5 o 6 punti. 
In tal modo abbiamo determinato il contorno del nostro solido di rotazione. Se questo 
contorno non ci piace, premiamo semplicemente il tasto <Del>, e l'ultimo punto (e 
la linea ad esso collegata) spariranno. Possiamo modificare questo contorno ripetuta- 
mente e, quando siamo pronti, premiamo il tasto Esc per partire. Riassumiamo breve¬ 
mente ancora i comandi: 

<Tasto sinistro del mouse> Definizione di un punto angolare 
< Del > Cancellazione di un punto angolare 

<Esc> Calcolo e rappresentazione del solido di rotazione 

<Window close> Fine del programma 


Dopo alcuni istanti apparirà sullo schermo il risultato. Se abbiamo messo molti punti 
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angolari, è probabile che sia necessario qualche minuto di tempo di calcolo. Se possi¬ 
bile, è opportuno posizionare il primo e l'ultimo punto il più vicino possibile all'asse di 
rotazione, se non direttamente su di esso. 


A questo punto abbiamo a disposizione una serie di comandi, al fine di modificare 
l’apparizione del nostro solido di rotazione: 


Spostamento del solido di rotazione 
Rotazione a sinistra attorno all'asse z 
Rotazione a destra attorno all’asse z 
Rotazione a sinistra attorno all'asse x 
Rotazione a destra attorno all’asse x 
Attivazione/disattivazione limitazione superifici 
Ingrandimento dell'oggetto 
Riduzione dell'oggetto 
Allontanare l’osservatore 
Avvicinare l’osservatore 
Impostare a 0 tutti gli angoli di rotazione 
Cambio colori 

Modifica del numero di rotazioni 
Sviluppo di un nuovo solido di rotazione 
Fine programma 


cTasto mouse sin.> 

<cursore sin.> 

< cursore ds. > 

<cursore verso l'alto> 

< cursore verso il basso 
<Del> 

< + > 

<-> 

< 8 > 

< 2 > 

<Help> 

< Spazio indietro 
<F1 > 

<Esc> 

< Window close> 


Abbiamo quindi a disposizione una scelta molto vasta. Con FI modificheremo il nu¬ 
mero di rotazioni, senza tuttavia perdere i contorni del corpo. Dopo FI immetteremo 
semplicemente il numero delle rotazioni desiderate, ed il programma ricalcolerà com¬ 
pletamente il solido di rotazione. La posizione della fonte di luce ed altri parametr po¬ 
tranno venire modificati direttamente nel programma. 

A seconda del numero di punti angolari e del numero di rotazioni, aumenterà o c r> - 
nuirà il tempo di calcolo, trasformazione, e proiezione di un nuovo solido di rotazione 
nonché il controllo della visibilità delle superfici. Con valori molto alti, il calcolo ootrà 
impiegare anche alcuni minuti. Un programma in C o in Assembler potrebbe essere 
molto più veloce, e renderebbe possibile anche l'animazione. 


Passiamo quindi alla descrizione del programma. Tutto il lavoro d' calcolo è un gros¬ 
so "mangiamemoria". Quindi è consigliabile verificare all’inizio del programma se si 
dispone di memoria sufficiente o se è il caso di riservarla. La dimensione della memo¬ 
ria da riservare dipende quasi esclusivamente dai valori massimi dei numeri di rotazio¬ 
ni e di angoli. Tali numeri si trovano nelle prime righe del programma, in una istruzione 
DATA (in questo caso 15 e 45). Nel caso in cui la memoria non dovesse bastare, modi¬ 
ficheremo taii valori. Se abbiamo a disposizione più memoria, potremo aumentarli sen¬ 
za problemi. Normalmente il programma ci segnalerà quando stiamo per occupare 
troppa memoria. Potrà comunque verificarsi un caso di "OUT OF MEMORY", dovuto 
al fatto che, anche se è presente una memoria sufficiente, non si tratta di memoria 
contigua. 


317 








Le inizializzazioni che seguono ci sono già note grazie ai capitoli precedenti. Anche 
le strutture di base in molte routine dovrebbero già esserci note dal capitolo relativo 
alle linee e superfici nascoste. Sono state apportate solo modifiche minime (principal¬ 
mente per la precisione di calcolo). Torniamo quindi all'essenziale, cioè alla routine 
get.rotkoerper( ). Essa permette la creazione di un nuovo solido di rotazione e/o calco¬ 
la tutti i punti e le superfici di questo corpo, a seconda del contenuto del Flag%. 


La creazione del corpo ha luogo nel sottoprogramma interno edit.koerper. Qui il pro¬ 
gramma attende la pressione dei tasti del mouse, annota le coordinate nelle matrici 
xr( ), yr( ) e zr( ), traccia una linea dall’ultimo punto e ci dà la possibilità di cancellare 
di tali linee. Niente di difficile, quindi. 


Il nucleo è costituito da un grosso loop FOR...NEXT, dove l’angolo w viene incre¬ 
mentato passo passo (siamo noi stessi a determinare il numero dei passi). Nel loop 
il programma ruota tutti i punti da noi immessi di un angolo w attorno all’asse y, per 
cui conosce le coordinate dei punti del piano di rotazione successivo. Quindi egli co¬ 
struisce, sempre con un poligono di 4 punti, le superfici del corpo. Questo è tutto. Le 
matrici verranno quindi trasferite alle routine responsabili dell’output. 
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CAPITOLO 8 


Appendice 












8.1 Elementi matematici di base per la grafica computerizzata 


Nelle pagine seguenti troveremo di nuovo un breve riassunto dei principi matematici 
più importanti, nonché delle norme e dei procedimenti, necessari nel presente libro 
per la comprensione della grafica computerizzata tridimensionale. Si tratta alcune vol¬ 
te della ripetizione di problematiche già state chiarite nei capitoli corrispondenti. I lettori 
che hanno avuto delle difficoltà con i problemi matematici di questo libro potranno con¬ 
sultare questa appendice al fine di rinfrescare le nozioni necessarie. Per il calcolo vet¬ 
toriale, si consiglia tuttavia anche il Capitolo 4.3, mentre per il calcolo matriciale si 
consiglia il Capitolo 3.2.1. 


8.1.1 Funzioni trigonometriche 

Le cosiddette funzioni trigonometriche (seno, coseno, tangente ecc.) ci sono forse 
già note dalla scuola. Proprio per questo cerchiamo di riassumere ancora una volta 
che cosa si intende con esse e quali regole esistono. 



Fig 8.1 Definizione delle funzioni trigonometriche 


Le funzioni trigonometriche vengono definite nel cosiddetto cerchio unitario (ved. Fig. 
8.1), cioè un cerchio con il raggio 1 e con il centro nel punto (0,0). Se si traccia una 
perpendicolare dal raggio c sull’asse x, otterremo un triangolo rettangolo con i lati c, 
a e b e con l'angolo retto tra i lati a e b. La lunghezza di questi due lati dipende solo 
dall'angolo w, che è formato dal raggio c e dall'asse x. Le lunghezze a e b vengono 
definite tramite due nuove funzioni dell'angolo w: 

a = sin(w) (che si legge: “seno di w“) 

b = cos(w) (che si legge: “coseno di w”) 
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Vediamo quindi che maggiore è w, maggiore sarà anche a (cioè sin(w)) e minore 
diverrà b (cos(w)). Se w è maggiore di 90°, b assumerà valori negativi, a diventerà 
sempre più piccolo ecc. Dopo 360°, il ciclo ricomincia da capo. La funzione è quindi 
periodica, con un periodo di 360°. Se si inseriscono queste funzioni in un sistema di 
coordinate (sull’asse x i valori per w, sull'asse y quelli per sin(w) oppure cos(w)), otter¬ 
remo la nota funzione sinusoidale ondulata. La funzione del coseno ha lo stesso aspet¬ 
to, è solo spostata di 90° (ved. Fig. 8.2). Il valore massimo per le funzioni sinusoidali 
è di 1, il più basso è di -1. La funzione, quindi, oscilla sempre fra questi due valori. 



Le funzioni angolari terza e quarta, anch’esse utilizzate spesso, vengono definite co¬ 
me segue: 

tan(w) = sin(w)/cos(w) 

cot(w) = cos(w)/sin(w) = 1/tan(w) 

La prima, tan(w), viene chiamata Tangente, la seconda Cotangente. Nel cerchio uni¬ 
tario la tangente è sempre uguale a 1. 

Spesso, ma non è il nostro caso, gli angoli vengono indicati in Radianti, che è la lun¬ 
ghezza dell’arco sotteso da un angolo w nel cerchio avente il raggio 1. Un cerchio 
completo (360°) avrà quindi una lunghezza d’arco di 2*PI. PI è la nota costante che 
esprime il rapporto tra circonferenwa e diametro: 

PI = 3.14159265 
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Le formule per la trasformazione di un angolo da Gradi (gl in Radianti (r) e viceversa, 
sono le seguenti: 


r = 2*PI*g/360 = Pl*g/180 
g = 360*r/(2*PI) = 180*r/PI 

Ecco alcuni angoli importanti in Gradi e Radianti: 


0 Gradi 

= 

0 

Rad 

1 Grado 

= 

PI/180 

Rad 

10 Gradi 

= 

PI/9 

Rad 

30 Gradi 

= 

PI/6 

Rad 

45 Gradi 

= 

PI/4 

Rad 

60 Gradi 

= 

PI/3 

Rad 

90 Gradi 

= 

PI/2 

Rad 

180 Gradi 

= 

PI 

Rad 

360 Gradi 

— 

2 * PI 

Rad 


Ritorniamo quindi alle funzioni angolari. Nel caso in cui il raggio del cerchio diventi 
maggiore o minore di 1, dovremo ampliare le equazioni di cui sopra. Con metodi geo¬ 
metrici normali otterremo quindi: 

sin(w) = a/c 
cos(w) = b/c 
tan(w) = a/b 
cot(w) = b/a 

dove c sta per il raggio del cerchio, w per l’angolo tra c e b oppure a e b per i due 
lati dell'angolo retto del triangolo. A questo punto, indipendentemente dal nostro cer¬ 
chio, possediamo le formule per il calcolo di un lato di un triangolo rettangolo dati un 
angolo e un lato. 

E' inoltre possibile determinare ciascun angolo di un triangolo rettangolo, noti due 
lati, c sarà sempre il lato più lungo nel triangolo, cioè quello che si trova di fronte all'an¬ 
golo retto, chiamato ipotenusa, a e b saranno quindi i due cateti. 

Se conosciamo un angolo w in un triangolo rettangolo, il seno di questo angolo co¬ 
stituirà sempre il rapporto del lato che gli sta di fronte rispetto all’ipotenusa, il coseno 
costituirà il rapporto del lato giacente sull'angolo rispetto all’ipotenusa e la tangente 
il rapporto del lato frontale rispetto a quello giacente sull'angolo. 

Conoscendo la funzione angolare di un angolo, potremo determinare da soli l'ango¬ 
lo stesso tramite le cosiddette funzioni di arco. Infatti vale: 

w = arcsin(sin(w)) 
w = arccos(cos(w)) 
w = arctan(tan(w)) 
w = arccot(cot(wj) 
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Si parla infatti di Arcoseno, Arcocoseno, Arcotangente e Arcocotangente (il nostro 
AmigaBasic conosce solo la funzione di Arcotangente ATN(x)). 


Ecco alcune relazioni importanti fra le funzioni angolari: 


sin(x) 

tan(x) 

= cos(PI/2-x) 

= cot(PI/2-x) 

cos(x) 

cot(x) 

= sin(PI/2-x) 
= tan(PI/2-x) 

sin(PI + x) 
tan(PI + x) 

= -sin(x) 

= tan(x) 

cos(PI + x) 
cot(PI + x) 

= -cos(x) 

= cot(x) 

sin(x + /.y) 

cos(x + /.y) 

= sin(x)*cos(y) + /.cos(x)*sin(y) 

= cos(x)*cos(y) + /.sin(x)*sin(y) 



sin(2*x) 

cos(2*x) 

= 2‘sin(x)cos(x) 

= cos 2 (x)-sin 2 (x) 




Nel triangolo rettangolo vale anche il seguente teorema, molto importante (Teorema 
di Pitagora): 


c 2 = a 2 + b 2 


dove c è l’ipotenusa, mentre a e b sono i due cateti. 


8.1.2 Calcolo vettoriale 

Con il termine "vettore" si intende un "tratto orientato" nello spazio o su di un piano 
(freccia) (normalmente scritto con: v). Un vettore viene definito tramite il punto di appli¬ 
cazione e il suo estremo. La lunghezza di un vettore a viene chiamata anche intensità 
del vettore e viene indicata con |a|. Due vettori a e b sono uguali (à = 6), se la loro 
lunghezza e direzione sono uguali (la posizione nello spazio o sul piano è indifferente). 
Se un vettore viene spostato parallelamente, si tratterà sempre e comunque di uno e 
lo stesso vettore. 


Se un vettore ha lunghezza 1, lo si chiamerà vettore unitario. Un vettore unitario vie¬ 
ne calcolato da v’ = v/|v|. Il vettore 0 ha lunghezza 0 e la sua direzione è indeterminata. 


In alternativa, un vettore v potrà venire indicato anche tramite semplici coordinate. 
In tal caso si ipotizza che il punto di applicazione del vettore si trovi nel punto di origine 
delle coordinate (possiamo comunque spostarlo a piacere). In questo caso, come coor¬ 
dinate del vettore, verranno indicate solo le coordinate della punta (anche in questo 
caso sono sufficienti due parametri per il piano e tre per lo spazio): 
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oppure nello spazio: 


v 



Per la lunghezza (grandezza) di un vettore su di un piano, vale: 

IVI 2 = V x 2 + V y 2 

Per i vettori spaziali, avremo: 

Ivi 2 = V x 2 + V y 2 + V z 2 

Con i vettori è possibile anche effettuare dei calcoli. A tal fine valgono tuttavia parti¬ 
colari regole di calcolo: 

Moltiplicazione per una cifra: 

In questo modo è possibile moltiplicare un vettore con un numero semplice a. Que¬ 
sta moltiplicazione non è da confondere con il prodotto scalare indicato in seguito II 
risultato è anch’esso un vettore. Esso possiede la lunghezza a*|v|. Graficamente si in¬ 
tende con ciò l'allungamento o la riduzione del vettore in questione v. Se a è negativo, 
verrà invertita la direzione del vettore. In caso di a = 0, il risultato sarà un vettore zero: 



nello spazio: 



A questo proposito, è importante un altro concetto: l’indipendenza lineare dei vetto¬ 
ri. Due vettori sono linearmente indipendenti quando non è possibile trasformare uno 
nell'altro tramite una moltiplicazione per una costante. In altre parole: quando non giac¬ 
ciono né paralleli né antiparalleli. Di conseguenza verranno detti dipendenti linearmen¬ 
te o colineari due vettori che possiedono la stessa direzione (oppure direzioni opposte) 
ma non necessariamente la stessa lunghezza. 

Addizione/sottrazione di vettori: 

E' possibile anche sommare e sottrarre due vettori v e w. Il risultato è anch’esso un 
vettore. Se vogliamo rappresentare graficamente tale addizione, dovremo semplice- 
mente spostare il punto di applicazione del vettore w sulla punta del vettore v. Il vettore 
risultante andrà quindi dal piede del vettore v alla punta di w: 
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V + w 


( V x \ /w x \ /v x + W x \ 

Vy ) ~ ( Wy ) \ V v + W J 


Allo stesso modo, nello spazio, avremo: 


v + w = 


( V X \ /W x \ /v x + w x \ 

Vy ) + ( Wy ) =( vy + Wy ) 
v z / \w z / \v z +w z y 


La sottrazione di due vettori ha luogo in maniera analoga: 

(»;) •(:;)= (p) 

Nello spazio: 



Regole di calcolo: 

v + w = w + v v + (w + u) =(v + w) + u 

a*(b*v) = (a*b)*v (a + b)*v = a*v + b*v 

a*(v + w) = a*v + a*w 

|a*v| = |a|*|v| 


Prodotto scalare: 

Due vettori v e w possono anche venire moltiplicati fra loro. Qui però are a~c r.-j 
possibilità: per il cosiddetto prodotto scalare v*w, il risultato sarà un nume-; zs 
(scalare), mentre per il prodotto vettoriale vxw otterremo un nuovo .e~: e 

Il prodotto scalare viene definito come segue: 

v*w = |vr|w|*cos(a) 

In questa formula, a è l'angolo fra i due vettori da moltiptacai'e _e y ~.• razze c 7 
e w sono le lunghezze dei due vettori. In notazione di coordinate -.-e - : 

V*W = V X *W X + Vy*W y 

Mentre, per i vettori spaziali: 
v*w = v x *w x + v y *w y + v z *w z 


Se i due vettori si trovano perpendicolari varrà 
v*w = 0 (v è perpendicolare a w) 
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Regole di calcolo: 


v*w 


w*v 


(a*v)*w = a*(v*w) 

v*(w + u) = v*w + v*u 
v*v = v 2 


= Ivi 2 

Attenzione però al fatto che: 
v*(w‘u) = (v*w)‘u 

non vale. In altre parole: dovremo fare attenzione ad eseguire le moltiplicazioni sca¬ 
lari sempre nella sequenza esatta. 

Prodotto vettoriale: 

Abbiamo già citato il prodotto vettoriale. Si tratta della moltiplicazione di due vettori, 
che dà come risultato un altro vettore. Questo nuovo vettore p = v x w ha una lunghez¬ 
za di: 

|p| = |vxw| = |v|*|w|*sin(a) 

Ciò è d’altra parte anche l’area della superficie del parallelogramma tracciato da v 
e w. p è perpendicolare ai due vettori ve w, cioè penetra nello spazio (v, w e p danno 
come risultato un sistema destrorso). Un vettore perpendicolare viene chiamato anche 
vettore normale. 

Matematicamente, il prodotto vettoriale viene definito come segue: 

( v y ‘w z - v z *w y \ 
v z ‘w x - v x *w z I 
v x *w y - v y *w x / 

Regole di calcolo: 

vxw = -(wxv) !!! 

(a*v)xw = a'(vxw) 
vx(w + u)= vxw + vxù 

vxw = vettore zero (nel caso in cui v sia parallelo o antiparallelo rispetto a w) 
v x v = vettore zero 

Rappresentazione di punti tramite vettori. 

Anche un punto può venire interpretato come vettore. In questo caso il vettore andrà 
dal punto zero al punto stesso: 


P = v 
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x, y e z saranno quindi le coordinate del punto. Con P, che significa il punto P. effet¬ 
tueremo i calcoli esattamente come con i vettori normali. 


8.1.3 Rette e piani 
Rette: 

Quanto segue contiene alcune equazioni con le quali è possibile calcolare i punti 
di una retta: 

La più importante è naturalmente l'equazione di una retta su di un piano, che chiun¬ 
que di noi avrà visto almeno una volta: 

a*x + b*y + c = 0 (formula implicita) 


oppure 


y = m*x + n 


(formula esplicita) 


dove m indica l’inclinazione ed n il punto di intersezione con l'asse y, quindi vale: 


y 2 -yi 


m 


X 2 -Xi 

Per lo spazio, una retta è rappresentabile come sistema di equazioni lineare (retta 
di intersezione di due piani): 


a,*x + b!*y + 0 ,‘z + dì = 0 e 

a 2 *x + b 2 *y + c 2 *z + d 2 = 0 


E’ possibile anche la seguente formula: 
y = m*(x-Xì) + y. 



dove: 


Xì.yi un punto della retta 

m inclinazione (ved. sopra) 


Da ciò deriva la seguente formula: 


y - yi 


x - Xì 
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y 2 - yi 


X 2 - X, 


(equazione di due punti) 










Un’ultima formula, non molto comune, è: 


—-— + —^— = 1 (formula di sezione dell'asse) 

a b 

Questa retta interseca l’asse x nel punto P(a,0) e l'asse y nel punto Q(0,b). 

L’equazione vettoriale di una retta (per il piano e lo spazio) è: 

g: p = Po + t*a 

e, sotto forma di parametri: 

9- Px = Pox + I a x 
Py = Poy + ** a y 
p 2 = p 0z +. t*a z 

oppure, come sistema di equazioni: 

x 'Pox _ Y'Pov _ z 'Poz 

a x a y a z 

dove: 

p vettore dall’origine delle coordinate al punto P della retta da calcolarsi (oppure 
più semplicemente: punto P) 

p 0 vettore dall'origine delle coordinate ad un punto P 0 a piacere della retta (oppu¬ 
re, più semplicemente: P 0 ) 

a “vettore di direzione", cioè un vettore à piacere parallelo alla retta 

t fattore di "allungamento” (o riduzione) del vettore a, al fine di raggiungere il pun¬ 

to P 

Al fine di determinare una retta ben precisa, avremo bisogno semplicemente dei pa¬ 
rametri p 0 e à. Da valori a piacere per t determineremo quindi tutti i punti P (oppure 

vettori p) della retta. 

Piani: 

Quanto segue contiene alcune equazioni con le quali è possibile calcolare i punti 
di un piano nello spazio: 

Ecco l’equazione di un piano generale: 
a*x + b*y + c*z + d = 0 
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La formula di sezione dell'asse è: 


+ -X. + _L_ = i 
a b c 

Questo piano interseca l'asse x nel punto P(a,0,0), l’asse y nel punto Q(0,b,0) e l'as¬ 
se z nel punto R(0,0,c). 

Equazione vettoriale di un piano: 

e: p = Po + s*à + t*b 

oppure, sotto forma di parametri: 

e: Px = Pox + s*a x + t*b x 
p y = p 0y + s‘a y + t*b v 
Pz = Poz + s*a 2 + t*b z 

dove: 

p vettore dall'origine delle coordinate al punto P del piano da calcolarsi (oppure, 
più semplicemente: punto P) 

Po vettore dall’origine delle coordinate ad un punto P 0 a piacere del piano (oppu¬ 
re, più semplicemente: punto P 0 ) 
a,b vettori a piacere, indipendenti linearmente, sul piano 

s,t fattori di "allungamento" (oppure riduzione) dei vettori à e 6, al fine di raggiun¬ 
gere il punto P 

Al fine di tracciare un piano ben determinato, abbiamo bisogno semplicemente dei 
parametri p 0 , à e b. Da valori a piacere per s e t calcoleremo quindi tutti i punti P (op¬ 
pure vettori p) del piano. 

Un’altra forma dell’equazione vettoriale di un piano è la seguente: 
n * p + d = 0 
oppure: 

(P-Po) * n = 0 
dove: 

n un vettore perpendicolare al piano (di solito con lunghezza 1) 

p vettore dall’origine delle coordinate al punto P del piano da calcolarsi (oppure, 

più semplicemente: punto P) 

Po vettore dall’origine delle coordinate ad un punto P 0 del piano a piacere (oppu¬ 
re, più semplicemente: punto P 0 ) 
d quota (con d = 0 il piano attraversa l’origine) 
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Per la trasformazione di una delle due equazioni vettoriali di un piano nell'altra, con¬ 
sultare il Capitolo 4.3. 


8.1.4 Matrici 


Con il termine matrici intendiamo semplicemente una disposizione rettangolare di 
numeri: 


A = 


3l1 

a 12 

a i3 

a 14 

a 15 

... a 1n 

a 2 i 

a 22 

a 23 

a 24 

a 25 

a 2n 

831 

a 32 

a 33 

&34 

a 35 

a 3n 

a 41 

a 42 


• 



Sml 

3m2 

a m3 

®m4 

am5 

••• a^m 


Ogni numero a lk (per es. a,, oppure a 34 ) rappresenta un elemento della matrice (gli 
indici degli elementi servono solo per differenziazioni, i nomi delle matrici sono, come 
noto, sempre lettere maiuscole, in questo caso A). La matrice è composta da righe 
(sequenza orizzontale di elementi) e colonne (sequenza verticale di elementi). Si dice 
che è del tipo (m,n), dal momento che possiede m righe ed n colonne. Si parla anche 
di una matrice (m,n). Gli elementi a^, a 12 , a 13 , ... (oppure, più brevemente, a 1k ) rap¬ 
presentano la prima riga, tutti gli elementi a 2k la seconda riga ecc. Lo stesso accade 
con le colonne. 


Un elemento a, k si troverà quindi nella riga i e nella colonna k. In questo caso avre¬ 
mo a che vedere con una matrice bidimensionale. 

Il numero di elementi in una riga può (ma non necessariamente) essere uguale al 
numero degli elementi in una colonna. In questo caso parleremo di matrice quadrata 
ad n righe, esempio: 



Questa matrice ha tre righe ed è quadrata. 


Un altro caso particolare di matrici è costituito da quelle che possiedono una sola 
riga o una sola colonna. Di conseguenza esse saranno del tipo (1 ,n) oppure (m,1), (ve¬ 
di sopra), esempio: 

A « (15 3-4) 
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In questo caso si tratta di una matrice che possiede una sola riga (in questo caso 
con 4 “colonne”). Essa viene chiamata anche "vettore di riga”. L’altro caso è il cosid¬ 
detto “vettore di colonna”, esempio: 



Addizione/sottrazione di due matrici: 

Una addizione oppure sottrazione può avere luogo solo con matrici dello stesso tipo 
(stesso numero di righe e di colonne). 


L’addizione di due matrici C = A + B ha luogo elemento per elemento. Ogni elemen¬ 
to a lk di una matrice verrà addizionato all’elemento corrispondente b lk dell'altra matri¬ 
ce per ottenere l’elemento corrispondente c, k della matrice di risultato. Vale: 

c jk = a, k + b lk per tutti i,k 

Lo stesso vale anche per la sottrazione: 
c ik = a ik - b lk per tutti i,k 

La moltiplicazione di una matrice per un numero: 


Una moltiplicazione B = n*A di una matrice a piacere con un numero reale ha luogo 
anch'essa elemento per elemento. Ogni elemento a lk della matrice viene moltiplicato 
per il numero n. Vale: 

b lk = n*a ik per tutti i,k 

Addizione, sottrazione e moltiplicazione per un numero soggiacciono alle stesse re¬ 
gole della operazioni normali con i numeri. 


Moltiplicazione di matrici concatenate: 

La moltiplicazione di due matrici è definita solo per matrici concatenate. Con il termi¬ 
ne matrici concatenate intendiamo due matrici A e B, la prima delle quali possieda un 
numero di colonne uguale a quello di righe della seconda. Un esempio di una moltipli¬ 
cazione permessa sarebbe quindi il seguente: 











A possiede tre colonne, B tre righe, per cui la condizione è soddisfatta. Vediamo 
anche tuttavia, che la moltiplicazione B*A non è permessa. Anche se B*A fosse per¬ 
messa, ciò non significherebbe che il risultato sarebbe lo stesso di A*B. La sequenza 
dei fattori è infatti molto importante. Teniamo quindi presente che una moltiplicazione 
matriciale tra due matrici quadrate (vedi sopra) è sempre permessa. 

Il risultato di una moltiplicazione matriciale è di nuovo una matrice. Essa possiede 
lo stesso numero di righe della prima (A) e lo stesso numero di colonne della seconda 
(B). Il risultato della moltiplicazione di cui sopra (matrice (3,3) per matrice (3,2)) sareb¬ 
be quindi una matrice del tipo (3,2) (3 righe, 2 colonne). 

Il calcolo di questa matrice di risultato C è un po’ complesso. Scriviamo, con abbre¬ 
viazioni matematiche, il calcolo di un singolo elemento per i lettori esperti: 


n 



3kj * b jk - a,i * b 1k + a i2 * b 2k + ... + a in * b nk 


cosa che significa: l'elemento cik viene determinato dalla somma di tutti gli ajj*bj k , 
con j = 1 fino a j = n. 


Dove: 


c ik un elemento della matrice di risultato C 
a,j un elemento della matrice A 
b jk un elemento della matrice B 

n numero delle colonne di A, quindi anche: numero righe di B 

Seguendo quanto dice la formula calcoliamo un elemento c lk della matrice di risul¬ 
tato, moltiplicando tutti gli elementi della riga i di A con l'elemento corrispondente della 
colonna k di B e sommando risultati: 

C = A * B 



( 

( 


1 2 
4 5 
7 8 



1*1 + 2*3 + 3*5 1*2 + 2*4 + 3*6 
4*1 + 5*3 + 6*5 4*2 + 5*4 + 6*6 
7*1 + 8*3 + 9*5 7*2 + 8*4 + 9*6 
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( 22 28 \ /c„ c 12 \ 

49 64 |=| C 21 c 22 ) 

76 iooy yc3! C$2 ] 

Regole di calcolo: 

A*(B*C) = (A*B)*C 

Mentre sarebbe sbagliato: A*(B*C) = (A*C)*B 

Come già determinato in precedenza, è importante ricordare che A*B = B’A NON 


E' VERO. 


Esistono numerose matrici particolari, per le quali è possibile moltiplicare un'altra ma¬ 
trice, senza che cambi nulla. Si tratta di matrici quadrate, nelle quali tutti gli elementi 
sono uguali a zero. Solo gli elementi della cosiddetta diagonale principale devono pos¬ 
sedere il valore 1, per questo vengono chiamate anche matrici quadrate unitarie E: 



1 0 
0 1 
0 0 



(1) oppure 


oppure 


Vale: 

A*E = A 

8.1.5 Matrici di trasformazione 

Nelle seguenti righe troviamo riassunte ancora una volta tutte le matrici di trasforma¬ 
zione affrontate nel presente libro. Tutte le matrici vengono indicate qui sotto forma 
di coordinate omogenee. 

8.1.5.1 Matrici bidimensionali 
Scala (Ingrandimento/Riduzione): 

Matrice di scala: 


S(S X ,Sy) — 



Dove: 

S x fattore di scala in direzione x 

S, fattore di scala in direzione y 










A seconda del valore di S x o di S y , l'immagine verrà modificata come segue 

S x / y > 1 Ingrandimento 

S x / y = 1 Nessuna modifica 
0 < S x / y < 1 Riduzione 

S x / y < 0 Specchiatura contemporanea attorno all’asse x/y 

Scala di un punto: 

P* = P(x.y) * S(S x ,S y ) 

= (x y n) * S(S x ,S y ) 

Sotto forma di parametri: 

x’ = S x *x 
y' = S y *y . 

(n’ = n) 

Traslazione (spostamento): 

Matrice di traslazione: 



1 0 0 
0 1 0 


Dove: 


T x spostamento in direzione x 
T y spostamento in direzione y 


Traslazione di un punto: 


P‘ = P(x.y) * T(T x ,T y ) 

= (x y n) * T(T x ,T y ) 

Sotto forma di parametri: 

x' = T x *x 
y' = T *y 
(n' = n) 

Specchiature: 

Matrici 
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Specchiature attorno all'asse x: 



Specchiature attorno all’asse y: 



Sotto forma di parametri: 
Specchiatura attorno all’asse x: 

x’ = x 

y' = -y 

Specchiatura attorno all'asse y: 
x’ = -x 

y' = y 


Rotazione attorno all'origine: 

Matrice di rotazione: 

( cos(w) sin(w) 0\ 

-sin(w) cos(w) 0 I 

0 0 1 / 


Dove: 

w = angolo di rotazione 

Rotazione di un punto: 

P' = P(x,y) * R(w) 

= (x y n) * R(w) 

Sotto forma di parametri: 

x' = x*cos(w) - y*sin(w) 
Y’ = x*sin(w) + y*cos(w) 
(n’ = n) 







Rotazione attorno ad un punto a piacere: 


Matrice di rotazione: 

RXw.Xz.yz) = T 1 (-x z ,-y z ) * R(w) * T 2 (x z ,y 2 ) = 

( cos(w) sin(w) 0 \ 

-sin(w) cos(w) 0 j 

-x 2 *cos(w) + y z *sin(w) + x z -x z *sin(w)-y z *cos(w) + y z 1 J 

Dove: 

w angolo di rotazione 

x z centro di rotazione coordinata x 

y z centro di rotazione coordinata y 

Rotazione di un punto: 

P’ = P(x,y) * R^w.Xz.yz) 

= (x y n) * R'(w,x z ,yJ 

Sotto forma di parametri: 

x’ = x*cos(w) - y*sin(w) - x z *cos(w) + y z *sin(w) + x z 
y' = x*sin(w) + y*cos(w) - x z *sin(w) - y 2 *cos(w) + y 2 
(n' = n) 


8.1.5.2 Matrici tridimensionali 

Scala (ingrandimento/riduzione): 


Matrice di scala: 



S x scala in direzione x 

S y scala in direzione y 

S z scala in direzione z 

Scala di un punto: 

P' = P(x.y.z) * SCSx.Sy.S,) 
= (x y z n) * SCSx.Sy.Sz) 
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Sotto forma di parametri: 


x’ = S x *x 
y = S y *y 
z' = S 2 *z 
(n’ = n) 


Traslazione (spostamento): 

Matrice di traslazione: 


T(T*,Ty,Tz) = 


( 1 0 0 0 \ 
0 10 0 1 
0 0 1 0 I 
T X T y T z 1 / 


Dove: 

T x 

T u 


spostamento in direzione x 
spostamento in direzione y 


Traslazione di un punto: 


P’ = P(x,y,z) 

= (x y z n) 


KTxTy.Tz) 

TO-y.Ty.T,) 


Sotto forma di parametri: 


x' 

y’ 

z’ 

(n- 


x + T x 
y + Ty 

Z + T z 
n) 


Rotazioni attorno agli assi delle coordinate: 

Rotazione attorno all’asse x: 




Matrice di rotazione: 


( 1 0 0 

0 cos(a) sin(a) 

0 -sin(a) cos(a) 

0 0 0 


0 

0 

0 

1 


) 


Dove: 


a angolo di rotazione attorno all'asse x 


L. 










Rotazione di un punto: 

P' = P(x,y,z) * R x (a) 

= (x y z n) * R x (a) 

Sotto forma di parametri: 
x’ = x 

y' = y*cos(a) - z*sin(a) 

z’ = y*sin(a) + z*cos(a) 

(n' = n) 


Rotazione attorno all’asse y: 

Matrice di rotazione: 


R y (a) = 


( 


cos(a) 0 -sin(a) 

0 1 0 

sin(a) 0 cos(a) 

0 0 0 


0 


Dove: 


a angolo di rotazione attorno all’asse y 


Rotazione di un punto: 

P' = P(x,y,z) * R y (a) 

, = (x y z n) * R y (a) 


Sotto forma di parametri: 
x’ = x*cos(a) + z*sin(a) 

y' = y 

z’ = -x*sin(a) + z*cos(a) 

(n’ = n) 


Rotazione attorno all’asse z: 


Matrice di rotazione: 

( cos(a) sin(a) 0 0 \ 

-sin(a) cos(a) 0 0 1 

0 0 1 0 I 

0 0 0 1 / 
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Dove: 


a angolo di rotazione attorno all’asse z 

Rotazione di un punto: 

P‘ = P(x-y.z) * R z (a) 

= (x y z n) * R z (a) 

Sotto forma di parametri: 

x' = x*cos(a) - y*sin(a) 

y’ = x*sin(a) + y*cos(a) 

z’ = z 

(n’ = n) 


Rotazione attorno a tutti e tre gli assi, nella sequenza asse x, asse y, asse z: 

Matrice di rotazione: 


Rx(a) y (b) z (c) = R x (a) * R y (b) * R z (c) = 


cos(b)cos(c) 

sin(a)sin(b)cos(c) 
-cos(a)sin(c) 
cos(a)sin(b)cos(c) 
+ sin(a)sin(c) 

0 


cos(b)sin(c) 

sin(a)sin(b)sin(c) 
+ cos(a)cos(c) 
cos(a)sin(b)sin(c) 
-sin(a)cos(c) 

0 


-sin(b) 

sin(a)cos(b) 

cos(a)cos(b) 

0 


Dove: 

a angolo di rotazione attorno all'asse x 

b angolo di rotazione attorno all'asse y _ 

c angolo di rotazione attorno all’asse z 


Rotazione di un punto: 

P’ = P(x,y,z) * R x (a) y (b) z (c) 
= (x y z n) * R x (a) y (b) z (c) 


Sotto forma di parametri: 

x' = x*A + y*B + z*C 

y' = x*D + y*E + z*F 

z’ = x*G + y*H + z*l 

(n’ = n) 
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Dove: 


A = cos(b) * cos(c) 

B = cos(b) * sin(c) 

C = -sin(b) 

D = sin(a) * sin(b) * cos(c)-cos(a) * sin(c) 

E = sin(a) * sin(b) ‘ sin(c) + cos(a) * cos(c) 

F = sin(a) * cos(b) 

G = cos(a) * sin(b) * cos(c) + sin(a) * sin(c) 

H = cos(a) * sin(b) * sin(c)-sin(a) * cos(c) 

I = cos(a) * cos(b) 


Rotazioni attorno ad un asse a piacere: 

Matrice di rotazione: 


Rassefà) — 

T(-Xo,-y 0 .-Zo) * Rx(w,) * R y (w 2 ) * R z (a) * 
Ry(-w 2 ) * R x (-w,) * T(x 0 ,y 0 ,Zo) 


Con: 


T(-x 0 ,-y 0 ,-Zo) 


T(Xo,y 0 .Zo) 


R x (w,) 


R x ("Wi) 


Ry(W 2 ) 


( 1 0 0 0 \ 

0 10 0 1 

0 0 1 0 I 

-Xo -yo -Zo 1 / 

( 1 0 0 0\ 

0 10 0 1 

0 0 1 0 I 

Xo yo Zo 1 / 

( 1 0 0- 0\ 

0 z/c y/c 0 1 

0 -y/c z/c 0 I 

0 0 0 1 / 

( 1 0 0 0 \ 

0 z/c -y/c 0 1 

0 y/c z/c 0 I 

0 0 0 1 / 
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Ry(-W 2 ) 


c/d 

0 

x/d 

0 

1 

0 

-x/d 

0 

c/d 

0 

0 

0 


0 

0 

0 

1 


) 


dove: 

a angolo di rotazione attorno all’asse 

Xo.yo.Zo coordinate di un punto sull'asse 
x,y,z coordinate di un altro punto dell'asse 


e: 


c 2 = y 2 + z 2 
d 2 = x 2 + c 2 


Rotazione di un punto: 

P' = P(x,y,z) * Rasse(a) 
= (xyzn) ‘ Rasse(a) 


8.2 Funzioni di Library utilizzate nel presente libro 


Nei diversi programmi di questo libro abbiamo fatto uso piuttosto spesso delle nu¬ 
merose funzioni di Library che ci vengono messe a disposizione dal sistema operativo 
deH'Amiga. Nei singoli capitoli esse sono state spiegate solo molto brevemente. Per 
questo motivo mostriamo qui in appendice un'altra spiegazione breve ma significativa. 


Naturalmente si tratta di una parte molto esigua delle funzioni di Library effettivamente 
disponibili. Per ulteriori informazioni, si consiglia di esaminare la documentazione rela¬ 
tiva al sistema operativo deH’Amiga. 

Funzioni DOS/Exec: 

CtoseLibrary(Library) 

La biblioteca precedentemente aperta con OpenLibrary( ) viene di nuovo chiusa. 


Input: 

Library Indirizzo della struttura di library 


Output: 














Tipi di dati in C: 


void CloseLibrary()$ 

2 .B.! struct G-fxBase ^Library; 
aders struct IntuitionBase ♦Library; 


Descrizione: 

Quando non si ha più bisogno delle funzioni di una library per il programma, la si 
chiuderà con questo comando. Dopo di esso non sarà più possibile richiedere funzioni 
di library da tale library. 


Exit(codice errore) 

Termine di un programma (Funzione DOS). 

Input: 

Codice errore Codice errore per programma da chiamarsi 
Output: 


Tipi di dati in C: 

voi d E>: i t < > ; 

Descrizione: 

Exit( ) termina il programma. La funzione non torna, di conseguenza, nel program¬ 
ma. Se il programma era stato avviato sotto CLI, il “codice errore" verrà interpretato 
come un codice di Return. 


Message = GetMsg(Port) 

Preleva il messaggio successivo dalla Message-Port. 

Input: 

Port Indirizzo della porta di ricezione messaggio 

Output: 

Messaggio Indirizzo del messaggio ricevuto oppure 0 

Tipi di dati in C: 

struct Message *GetMsg <)5 

z.B.: struct IrituiMessaqe #Message; 

Descrizione: 

Con questa funzione (assimilabile ad una funzione di INPUT) riceveremo dati da qua¬ 
lunque apparecchiatura (esempio tastiera, mouse oppure disco ecc). La funzione, tut¬ 
tavia, non aspetta un messaggio, nel caso in cui nessun messaggio sia presente. L’attesa 
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è impostabile per esempio con Wait( ). Se invece è presente un'informazione (esempio 
una pressione di tasto), il comando restituirà l’indirizzo della struttura di messaggio cor¬ 
rispondente, diversamente zero. 

La struttura di messaggio in una finestra di Intuition sarà per esempio la seguente: 


struct IntuìMessage 
C 


struct Message ExecMessage; 

ULONG Class; /* Flag IDCMP dell'evento */ 
USHORT Code; /* Numero menu, tasto ecc. */ 
USHORT Qualifier; /* Irvform. addiz. SHIFT, Alt ecc*/ 
AF’TR lAdress; /* Indirizzo di Gadget, Screen */ 
SHORT MouseX, MouseY; /* Coordinate del mouse */ 
ULONG Seconds, Mi eros; /# Ora di sistema dell 'evento */ 
struct Window *IDCMPWindow; /* Indirizzo -finestra */ 
struct IntuiMessage *Special Link; 


Tutti questi elementi di struttura non vengono utilizzati per ogni tipo di segnalazione. 
Da questa struttura sarà possibile prelevare quindi le informazioni necessarie sul tipo 
e contenuto del messaggio. Quando il messaggio non è più necessario, dovremo re¬ 
stituirlo con il comando ReplyMsg( ). 


Library = OpenLibrary(LibNome, Versione) 

Crea l’accesso ad una Library. 


k 


L 


Input: 

LibNome Nome della Library 

Versione Numero versione della Library 

Output: 

Library Indirizzo della struttura di Library oppure 0 

Tipi di dati in C: 

struct Library *0penLibrary(); 
char *LibName; 
long Version; 

Descrizione: 


La funzione OpenLibrary( ) permette l’accesso ad una Library. Una eventuale Libra¬ 
ry non residente in ROM dovrà venire caricata dal disco. Prima del caricamento, infatti, 
non sarà possibile gestire nessuna funzione che appartenga a tale library. Nel caso 
in cui l’accesso non dovesse essere possibile, la funzione fornirà uno 0. Prima della 
fine del programma sarà necessario richiudere la Library tramite il comando Close 
Library( ). 
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ReplyMsg(Messaggio) 

Restituisce un messaggio. 

Input: 

Messaggio Indirizzo del messaggio 

Output: 


Tipi di dati in C: 

void ReplyMsgO; 
struct Message Message; 

Descrizione: 

Con questa funzione si restituisce il messaggio ricevuto (eventualmente con segna¬ 
lazione). 


Signal = Wait(maschera segnale) 

Attende uno o più segnali. 

Input: 

Maschera segnale Maschera del bit dei segnali che dovranno venire attesi (Bit = 1 ), 
oppure non attesi (Bit = 0). 

Output: 

Segnale Numero del segnale che si è presentato (numero bit) 

Tipi di dati in C: 

1 uny Wai t ( ) ; 
long Signal 

Descrizione: 

Wait( ) attende uno o più segnali determinati. Tali segnali vengono riservati per esem¬ 
pio con il flag IDCMP. L’applicazione è ricavabile dai programmi Demo. 


Funzioni di Intuition: 

CloseScreen(Screen) 

Chiusura di uno Screen di Intuition precedentemente aperto con OpenScreen( ). 
Input: 

Screen Indirizzo della struttura di screen 







Output: 


Tipi di dati in C: 



Descrizione: 

Con questa funzione è possibile chiudere uno screen sotto Intuition. In tale screen 
non potranno esserci delle finestre aperte. Dopo che è stato chiuso l'ultimo screen, 
questa funzione cerca di aprire lo screen di Workbench. 


CloseWindow(Window) 

Chiusura di una Window di Intuition aperta precedentemente con OpenWindow( ). 
Input: 

Window Indirizzo della struttura di window 

Output: 


Tipi di dati in C: 

void CIoseWindow(); 
siruct Window ^Window; 

Descrizione: 

Con questa funzione è possibile chiudere una finestra (Window) sotto Intuition. Nella 
finestra non potrà più esserci nessuna riga di menu definita. Dopo la chiusura dell'ulti¬ 
ma finestra in uno Screen di sistema (da non confondersi con uno screen Custom) questa 
funzione chiude contemporaneamente anche lo screen. 




v 



Screen = OpenScreen(NewScreen) 

Apertura di uno screen di Intuition. 


Input: 

NewScreen 


Indirizzo della struttura di NewScreen 


Output: 

Screen 


Indirizzo della struttura di screen 


Tipi di dati in C: 




struct Screen *OpenScreen(); 
struct NewScreen *NewScreen; 









Descrizione: 

Si tratta della funzione centrale per l'apertura di un nuovo screen sotto Intuition. Tut¬ 
tavia, prima di poter chiamare questa funzione, sarà necessario inizializzare una strut¬ 
tura chiamata NewScreen (in Basic dovremo inoltre riservare ed occupare uno spazio 
di memoria sufficiente). Questa struttura contiene dati importanti sul nuovo screen da 
approntare (esempio numero dei colori, risoluzione, ecc). Come valore di risposta ot¬ 
terremo l’indirizzo della struttura di screen vera e propria, nella quale potremo trovare 
i dati della struttura di NewScreen ad alcuni altri dati. La costituzione della struttura di 
NewScreen è presente nei programmi di esempio. 


Window = OpenWindow(NewWindow) 

Apertura di una Window di Intuition. 

Input: 

NewWindow Indirizzo della struttura di NewWindow 

Output: 

Window Indirizzo della struttura di Window 

Tipi di dati in C: 

struct Window *OpenWindow<); 
struct NewWindow ^NewWindow; 



Descrizione: 

Questo comando apre una nuova finestra di Intuition. Nel caso in cui si sia dato co¬ 
me tipo di Screen CUSTOMSCREEN nella struttura di NewWindow, sarà necessario 
avere già aperto tale screen tramite OpenScreen( ). Se invece la finestra deve venire 
aperta in uno screen standard, tale screen verrà aperto automaticamente, nel caso in 
cui non esista ancora. 


Prima però di poter chiamare questa funzione, sarà necessario inizializzare una strut¬ 
tura con il nome NewWindow (in Basic riservare ed occupare uno spazio di memoria 
corrispondente). Questa struttura contiene dati importanti sulla finestra da approntare 
(gadget, dimensioni, posizione, ecc). Come valore di risposta otterremo l’indirizzo del¬ 
la struttura di Window vera e propria, nella quale sarà possibile trovare i dati della strut¬ 
tura di NewWindow ed alcuni altri dati. La posizione della struttura di NewWindow è 
presente nei programmi esempio. 


ScreenToBack(Screen) 

Lo screen indicato viene spostato dietro tutti gli altri screen. 
Input: 

Screen Indirizzo della struttura di screen 
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Output: 


Tipi di dati in C: 

vaici Sr:ree*nToBcir .I C ) ; 
struri Rrrpen *Rc.ref»n; 


Descrizione: 

Con questo comando si ottiene esattamente lo stesso risultato di quando si preme 
il gadget di profondità (DEPTH ARRANGEMENT) di uno schermo: lo screen in que¬ 
stione viene posto dietro tutti gli altri. 


ScreenToFront(Screen) 

Lo screen indicato viene posizionato davanti a tutti gli altri. 
Input: 

Screen Indirizzo della struttura di screen 

Output: 


Tipi di dati in C: 

voi cl ScreenToFront () ; 
struct Bergen *Screen; 


Descrizione: 

Con questo comando si ottiene lo stesso risultato di quando si preme con il Mouse 
il gadget di posizionamento anteriore: lo screen in questione viehe posizionato cava^ 
a tutti gli altri screen. 


Funzioni Grafiche: 

ClearScreen(RastPort) 

Cancellazione dell'intera Rasterport a partire dalla posizione attuale dei cursore grafico 
Input: 

RastPort Indirizzo della Rasterport cui ci si rivolge 

Output: 


347 






Tipi di dati in C: 


void ClearScreenO j 
struct RastPort «RastPort; 

Descrizione: 

Questa funzione cancella a partire dalla posizione attuale del cursore (posizionabile 
con Move( )) il resto della riga fino al bordo destro dello schermo. Quindi cancella an¬ 
che tutto il resto del Raster fino al bordo inferiore. La cancellazione ha luogo con 0, 
mentre, in modo di disegno 2, con il colore impostabile tramite SetBPen( ). 


Draw(RastPort,x,y) 

Tracciatura di una linea dalla posizione attuale del cursore a x,y. 


Input: 

RastPort 

x.y 


Indirizzo della Rasterport cui ci si rivolge 
Coordinate del punto finale 


Output: 


Tipi di dati in C: 

void Draw(); 

struct RastPort *RastPort; 
long x; 
long y; 


Descrizione: 

La funzione presentata traccia una linea (colore da SetAPen) dalla posizione attuale 
del cursore grafico (regolabile con Move( ), oppure dall’ultimo punto tracciato), fino al 
punto avente le coordinate x,y. Questo punto finale della linea diventa anche il cursore 
grafico attuale. 


DrawCircle(RastPort,mx,my,raggio) 

Tracciato di un cerchio con il raggio Raggio e con il centro in mx, my. 


Input: 

RastPort 

mx,my 

raggio 


Indirizzo della Rasterport cui ci si rivolge 
Coordinate del centro del cerchio 
Dimensione del raggio in pixel 


Output: 
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Tipi di dati in C: 


voi d DrawCircleO ; 

struct RastPort *RastPort; 

long mx; 

long my; 

long radius; 


Descrizione: 

Questa funzione traccia un cerchio (colore da SetAPen) con il raggio indicato e con 
le coordinate di centro mx, my. 


DrawEllipse(RastPort,mx,my,raggio _x,raggio _y) 

Tracciato di un’ellisse con i raggi raggio_x, raggio_y, e con il centro in mx, my. 


Input: 
RastPort 
mx,my 
raggio _x 
raggio _y 

Output: 


Indirizzo della Rasterport cui ci si rivolge 
Coordinate del centro del cerchio 
Dimensione del raggio in direzione x (in Pixel) 
Dimensione del raggio in direzione y (in Pixel) 


Tipi di dati in C: 


void DrawEl1ipse(); 

struct RastPort ♦RastPort; 

long mx; 

long my; 

long x_radius; 

long y__radius; 


Descrizione: 

La funzione presentata traccia un’ellisse (colore da SetAPen) con i raggi indicati e 
con le coordinate di centro mx, my. 


Flood(RastPort,modo,x,y) 

Riempimento di una superficie a piacere. 


Input: 

RastPort 

x.y 


Indirizzo della Rasterport cui ci si rivolge 
Coordinate di un punto nella superficie 
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modo Modo di riempimento: 

= 0: riempimento della superficie in questione, che possiede 
i colori del punto x,y. 

= 1 : riempimento della superficie in questione che è circon¬ 
data da punti che sono stati impostati con SetOPen( ). 

Output: 


Tipi di dati in C: 

void FI ood <); 

struct RastPort *RastF'ort; 
long x; 
long y; 

1nng modus; 


Descrizione: 

Con questa funzione è possibile riempire a piacere delle superfici molto velocemen¬ 
te. A tale scopo indicheremo con x,y un punto aH'interno di questa superficie. Il modo 
nel quale l’elaboratore riconoscerà i confini di una superficie, viene determinato con 
"modo”. Nel caso in cui si voglia riempire solo la superficie che ha attualmente un de¬ 
terminato colore (modo = 0), cioè quello del punto con le coordinate x,y, la funzione 
disegnerà fino al punto nel quale incontra un'altro colore. 


Nell’altro modo il riempimento avrà luogo finché la funzione non arriva ad un punto 
di bordo, che possiede il colore OUTLINE impostato con SetOPen. Questo è il modo 
più utilizzato. 


Move(RastPort,x,y) 

Spostamento del cursore grafico a x,y (nessun disegno). 
Input: 

RastPort Indirizzo della Rasterport cui ci si rivolge 

x,y Coordinate del nuovo cursore grafico 

Output: 


Tipi di dati in C: 


void Move <); 

struct RastPort -^RastPort; 
1 ong y. ; 
long y; 








Descrizione: 

Sposta il cursore grafico interno non visibile (normalmente l'ultimo punto tracciato) 
al punto avente le coordinate x,y. 


RectFill(RastPort,x1 ,y1 ,x2,y2) 

Tracciatura di un rettangolo pieno. 

Input: 

RastPort Indirizzo della Rasterport cui ci si rivolge 

xl ,y1 Coordinate del punto angolare superiore sinistro 

x2,y2 Coordinate del punto angolare inferiore destro 

Output: 


Tipi di dati in C: 


vaici RectFi 11 () ; 

struct RastPort «RastPort; 

long x1 ; 

long yl$ 

long x2; 

long y2; 


Descrizione: 

Questa funzione traccia un rettangolo riempito con il colore impostato tramite SetA- 
Pen( ). La dimensione e la posizione del rettangolo vengono definiti tramite l’input di 
due punti angolari diametralmente opposti, cioè xl.yl ed x2,y2. 


SetAPen(RastPort,pal _ reg) 

Impostazione del colore di disegno attuale sul colore del registro di Palette pai 2 reg. 
Input: 

RastPort Indirizzo della Rasterport cui ci si rivolge 

pai _ reg Numero registro di Palette 

Output: 


Tipi di dati in C: 

void SetAFen(); 

struct RastPort «RastPort; 

long pal_reg; 
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Descrizione: 

SetAPen( ) definisce un nuovo registro di Palette come fonte del colore attuale di di¬ 
segno, tramite il quale verranno eseguite tutte le operazioni normali di disegno. 


SetBPen(RastPort, pai _ reg) 

Impostazione del colore di sfondo attuale al colore del registro di Palette pai _ reg. 
Input: 

RastPort Indirizzo della RasterPort cui ci si rivolge 

pai _ reg Numero registro di Palette 

Output: 


Tipi di dati in C: 

void R@t.rtP*»n(); 

struct RastPort «RastPort; 

long pai_reg; 

Descrizione: 

SetBPen( ) definisce un nuovo registro di Palette come fonte del colore di sfondo 
attuale, che viene utilizzato da diversi comandi di disegno. 


/ 


SetOPen(RastPort, pai _ reg) 

Impostazione del colore attuale di OUTLINE al colore del registro di Palette pai _ reg. 
Input: 

RastPort Indirizzo della Rasterport cui ci si rivolge 

pai _ reg Numero registro Palette 

Output: 


Tipi di dati in C: 

vo i d SetOPen ()5 

struct RastPort «RastPort; 

long pal_reg; 

Descrizione: 

SetOPen( ) definisce un nuovo registro di Palette come fonte del colore attuale di 
OUTLINE, con il quale lavorano alcuni comandi di disegno. Contemporaneamente es¬ 
so inserisce anche l’incorniciatura delle operazioni di riempimento di superfici. SetO- 
Pen( ) non è una funzione vera e propria, bensì una macro (definita con # define in 
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C, nel file di Include graphics/gfxmakros.h). In Basic, al contrario, dovremo utilizzare 
la seguente sequenza di comandi: 

POkE WINDOW(S)+27,pai_reg 'Impostazione colore 
■flags = WINDOW (8) +32 

POKEW -flags, PEEKW(-f 1 ags) OR 8 Attivazione Flay di OUTLINE 

SetDrMd(RastPort, modo) 

Impostazione del modo di disegno attuale. 


Input: 



RastPort 

modo 


Output: 


Tipi di dati in C: 


Indirizzo della Rasterport cui ci si rivolge 
Modo di disegno: i seguenti valori determinano il modo di dise¬ 
gno e possono venire combinati tramite una addizione (opera¬ 
zione logica di OR): 


= 0: (JAM1) 


= 1: (JAM2) 


= 2 : 

(COMPLEMENT) 


= 4: 

(INVERSIVO) 


Il disegno viene effettuato solo con il colore 
di disegno (SetAPen( )). Se nello sfondo de¬ 
ve venire messo un punto, questo verrà 
ignorato. Un motivo di riempimento sarà 
quindi trasparente in quelle posizioni nelle 
quali il motivo contiene dei bit di zero. 
Vengono impostati sia i colori di disegno (Se- 
tAPen()) che i colori dello sfondo (SetB- 
Pen( )). In questo modo, per esempio, un 
motivo di riempimento coprirà compieta- 
mente tutta la grafica che si trova sotto di lui. 
Esegue una operazione logica di OR esclu¬ 
sivo (XOR) del numero di registro di Palette 
con i colori di tutti i punti cui ci si rivolge. Può 
trattarsi per esempio di tutti i punti che de¬ 
vono venire interessati solo dal colore del 
primo piano (combinazione 
JAM1 +COMPLEMENT). 

I colori dello sfondo e del primo piano ven¬ 
gono scambiati l'urto con l'altro. 

_ ft. __/ Vfc.. 




Jt 




void SetDrMdO; 

struct RastPort «RastPort; 

long modus; 


Descrizione: 

Il comando imposta il modo di disegno desiderato, che verrà tenuto presente da tut¬ 
te le funzioni di disegno. 
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SetRGB4(ViewPort,pal _ reg,rot,gruen,blau) 

Attribuisce ad un registro di Palette della ViewPort (Screen) una combinazione di colori. 


Input: 

ViewPort 


Indirizzo della ViewPort cui ci si rivolge. Sotto Intuition la View¬ 
Port dello screen si trova nella struttura di screen. In C, si potrà 
quindi dare: 

&Screen -> ViewPort 

Numero registro Palette 

Valore di intensità per quota di rosso 

Valore di intensità per quota di verde 

Valore di intensità per quota di blu 


pai _ reg 
rot 

gruen 

blau 


Output: 


Tipi di dati in C: 


vaid SetRGB4(> ; 

struct ViewPort «ViewPort; 

long pal_reg; 

long rot; 

long gruen; 

long blau; 


Descrizione: 

Con questa funzione è possibile attribuire ad un registro di Palette una delle 4096 
combinazioni di colore possibili. 

errar = Text(RastPort,string,anz_zei) 

Output di una stringa di testo nel set di caratteri in vigore in quel momento. 


Input: 

RastPort 

string 

anz_zei 


Indirizzo della Rasterport cui ci si rivolge 
Indirizzo della stringa di testo da emettere 
Numero dei caratteri nella stringa 


Output: 

error 


= 0: nessun errore 
< > 0: errore 


Tipi di dati in C: 

POOL T<=: t < ) ; ' 

struct RastPort «RastPort; 

char «string; 

1 ong anz_:ei ; 
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Descrizione: 

Text_ fa apparire un testo nella posizione attuale del cursore grafico. 

WaitTOF_ 

Attesa finché il pannello elettronico non ha raggiunto il View successivo (Screer 
Input: 

Output: 

Tipi di dati in C: 

void Ua j lTOF_; 

Descrizione: 

Con questa funzione abbiamo la possibilità di sincronizzare i nostri output grafici cor 
il pannello elettronico del monitor. Infatti questa funzione attende finché il pannello elet¬ 
tronico non ha raggiunto la fine dello schermo. In questa maniera è possibile trace a r e 
dei grafici senza sfarfallamento nel periodo impiegato dal pannello elettronico per rag¬ 
giungere l'inizio dello schermo. 

WritePixel(RastPort,x,y) 

Impostazione di un punto a x,y. 


Input: 

RastPort 

x.y 


Indirizzo della Rasterport cui ci si rivolge 
Coordinate del punto da posizionare 



Output: 


Tipi di dati in C: 



Descrizione: 

Con questa funzione viene posizionato un singolo punto sullo screm» ~ae Dunto 
assumerà il colore di disegno attuale. Contemporaneamente tale pu-mc 3 . e~e a^-che 
il cursore grafico attuale. 
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AMIGA 

grafica 3D 
e animazione 

Axel Plenge 

Non sono solo gli appassionati di computer ad essere affascinati dalla 
grafica tridimensionale: chiunque resta sorpreso di fronte al sovrappor¬ 
si di effetti speciali assolutamente fantastici. 

Al contrario, solo pochi sanno che non è affatto complicato programma¬ 
re da soli tali effetti. 

Nel presente libro è possibile apprendere la progettazione, program¬ 
mazione e rappresentazione sul proprio Amiga di grafici tridimensio¬ 
nali professionali, iniziando proprio dalle problematiche più semplici. 
Gli utenti Amiga appassionati di grafica, ma anche i programmatori 
esperti e i principianti nel settore della grafica, troveranno il testo, per la 
cui lettura sarà sufficiente una conoscenza minima della matematica 
del Basic e del C, chiaro e comprensibile. 

Tutti i programmi presentati, esaurientemente commentati, sono conte¬ 
nuti nel dischetto allegato, e per essi è necessario, oltre all'Amiga 
500/1000/2000, l’Amiga-Basic ed un compilatore C (Aztec C oppure 
Lattice C). 

Sommario 

• Elementi di base di grafica 

• Operazioni bidimensionali 

• Il mondo tridimensionale 

• Linee e superfici nascoste 

• Effetti di luce 

• Riflessioni e ombreggiature 

• Ray Tracing 

• Colori 

• Solidi di rotazione 
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